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PACE 1 


i. asstract 


THE POP-15 ASR33/35 TELETYPE TESTS PART 2 IS THE SECOND 
PART OP A TWO-PART PACKAGE USED TO TEST THE ASR33# OR 
ASR35 teletype WHEN ATTACHED TO A P0P»i5 SYaTEM, 

PART 2 CONTAINS SEVEN SELCCTASLI PROGRAMS ;y8£0! TO TEST THE 
TELEPRINTER! PUNCH* KEyBOAROi ANO THE PRl^T^/ PUNCH AND 
READER IN COHSINATlON* THE PROGRAMS ARE SEjLfGTEO ANO CON- 
TROLLED BY MEANS OP the ACCUMULATOR SWITCHES (ACS). 

THE PROGRAMS AVAILABLE AREi 



PRC0 

printer test 



PRGi 

PUNCH TEST 



PRG2 

keyboard test 



PRC3 

combined reader, printer, Punch test, 



PRG4 

printer exerciser, prints lines op characters 

IN LOC 00021 AND 00022, 

STORED 


PRG5 

PUNCH EXERCISER, PUNCHES AND READ C^CKS DATA 
OP data STORED IN LOC 00021 AND 00022* 

BLOCKS 


PR06 

PUNCH exerciser, punches and REaO CHECKS BLOCKS OP 

binary count pattern, 

2. 

requirements 



2.1 

EQUIPMENT 




A. STANDARD POP-15 AND 
S, ASR33 OR ASR35 TELETYPE, 
2,2 STORAGE 


locations 00000 through 04406 ARE USED, 
2,3 preliminary programs 


POP-15 ASR33/35 TELETYPE TESTS PaRT 1 PROCRamS PRG0, PRCi, AND 
PRG2 MUST HAVE BEEN RUn SUCCESSPULLY , 



LOADING P«OC£Oy^E: 


TO LOAD T«c P«OSRAH PROCEED AS rOUOWSI 

A, load OtjECt TAPE In TELETYPE READER, OR IN HIOH SPEED 

reader ir THE system has said reader, 

6. SET ADDRESS SWITCHES TO 17700 

C, SET BANK SNITCH TO "ON" POSITION 

D, PRESS "RESET" 

Et PRESS "READ IN" 

rl THE PRO0RAH HlUL LOAD AND HALT WITH ACiTTTTT? If PRO- 
GRAM LOAOCO correctly, IF THE PROORaH HalTS WITH AC*0 
A CHECKSUM ERROR Has OCCURREO, repeat The loading 
PROCEOURCi 
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4, USE PROCEDURE 


4,1 uS| procedure for prc^ 


A. insure TEuetyfE is on-line 

8, TURN OFF TELETYPE READER AND PUNCH, 

C, SET CONSOLE REGISTER DISPLAY TO AC, 

0 , SET address SNITCH TO 0020«, 

E, SET AC SWITCHES TO 000000, {SELECTS PRG0) 

F, PRESS I/O RESET) PRESS START, 

G, PR05RAH halts AT LOC 0023S TO PERMIT SETTING OF AC 
SWITCH options, normal OPERATION |S WITH AC SWITCHES 
SET TO 000000, 

the AC SWITCH OPTIONS FOR THIS PROGRAM aRC» 

ACS0«i halts program at log 003201 AT enO OF 

current ROUTINE, NUMBER OF ROUTINE JUST 
completed is OISPLAYEO in AC. To PROCEED, 
PRESS CONTINUE, 

acsi«i selects routine whose Number is set in 

ACSia tHROUCH ACS17, ROUTINE IS SELECTED 

AT completion of current routine, 

ACS2ii LOOP Program, entire program is repeated. 
ACSi2 number of routine to be selected. 

THROUGH 

ACS17 ACSl MUST BE 1, 

H, PRESS continue. 

1, PROGRAM IS EXECUTED AND HALTS AT LCC 00279, PROGRAM 
END halt, if NO LOOP OPTIONS APE SET, 

NOTE 

THE printouts# resulting PPOM TmE EXECUTION oF PRG0, 
MUST 8E VERIFIED BY USER TO DETERMINE CORRECT 
TELEPRINTER OPERATION, (SEE SECTION 9, POP 

description.) 



PaUE ^ 


4.2 use PAOCCOURC rOR RRCl 


A, TURN ON TEtETYRE PUNCH.’ 

B. with Tewctvpe opphinCi punch ft IN, or blank leader, 
return teletype to ON-LINE POSITION, 

c, load reader with Blank leader# leaving very little 

SLACK lEtMEEN PUNCH ANO READER, 

0, TURN ON READER « 

E. SET CONSOLE REOISTCR DISPLAY SWITCH TO AC, 

r. SET address switches TO 00S80, 

G. SET AC Switches to 00000 ;, (selects prcd 

M, PRESS I/O RESET I PRESS START, 

1, PROCRAH HALTS At LOC 00235 TO PERMIt SITTING OP AC 
SWITCH OPTIONS, NORMAL OPERATION IS WITH AC SWITCHES 
SET TO 040000, to 6 aU8E PROGRAM TO hALT-SN-ERROR , 

The AC SWITCH options POR this PROGRAM are 


ACS0fl 

HALTS program at LOC 003201 AT END OP 
current ROUTINE, NUMBER OP ROUTINE UUST 
COMPLEtCO IS DISPLAYED IN AC, TO PROCEED, 
PRESS CONTINUE, 

ACSltl 

select ROUtINE WHOSE NUMBER IS SET IN AC512 
through ACSIT, ROUTINE IS SELECTED UPON 
ROUTINE’S COhHctION, 

4CS2i1 

LOOP Program, entire program is repeated, 

ACS3tl 

halt-on-error, bad character is displayed 

IN AC, 

ACS3t0 

halt At end oP data block if errors 

OCCURRED, ERROR COUNT IS DISPLAYED IN AC, 

AC$12 

THROUOH 

ACSiT 

number op routine to be selected, 

Acsi Must be i. 

J, PRESS continue. 

K, PROGRAM IS 
END HALT, 

executed ANO HALTS AT LOc 002TS» PROGRAM 
ir NO OPTIONS ARE SET, OR IP NO ERRORS OCCUR, 

SECTION ^ 

,i,l OR ft,i POR HALTS) 
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4,3 uSr fsROCEDURC roo PPC2 


A, insure teuetvpc is on. line 

B, TURN orr TCUETVPe reader and PUNCHi 

C, SET CONSOU RCGiSTfR OiSPUAV switch TO AC, 
0. SET ADDRESS SWITCHES TO S02D0, 


C. SET AC SWITCHES TO 000002, 


P. PRESS I/O RESET! PRESS START, 


C, PROGRAM TITLE 18 PRINTED AND PROGRAM HALTS AT LOC 00213 
to permit SETTING of AC SWITCH OPTIONS, NORMAL 
operation is with AC Switches set to 000000 , 

THE AC switch options FOR THIS PROGRAM ARE 


aCS0«1 halts program at LOC 003001 AT END OF CURRENT 

routine, nUMSIR of completed routine is 
OISPLA veO IN AC, TO PRoCEEo, PRESS CONTINUE, 

ACSlil select routine whose number is SET IN ACSiB 
through ACSIT, routine IS SELECTED At 
completion of current Routine, 

ACS2p1 loop program, ENTIRE PROORah IS REPEATED, 


ACSi2 number of routine TO BE SELECTED. 

through Acsi MUST be %, 
acsit 


H. PRESS CONTlNUEi 

I. FOLLOW teleprinter INSTRUCTIONS, 

U, WHEN LAST routine IS COMPLETED, AND PROVIDED THAT NO OPTIONS 

prevents It, THE Program stops at program end halt at 

LOC 00275, 


NOTE 

CORRECT keyboard OPERATION IS DETERMINED BY 
USER, BY checking that PRINTED cMaRacTERS 
COORESPONO with CHRACTERS KEYED, 

(SEE SECTIONS 5,1,1 aNO 6,1 FOR HALTS AnO REMEDY.) 



PACE 6 


4,4 USE PROCEOURE FOR PRG3 


Ar TURN ON TEuETYRE PUNCH, 

8. WITH TELEtYPt OrP»LlNC, PUNCH 6 INChCS QP BLANK LEADER. 

RETURN teletype TO ON-llNI POSITION, 

C. LOAD READER WITH IlANK LEAOERi LCAV|NQ LITTlE SLACK 

between punch and reader t 

TURN ON REaDERi 

E, SET CONSOLE RfOlSTER DISPLAY SWITCHES To AC, 

F, SET address switches TO B09B0, 

G, SET AC SWITCHES TO 000009, (SELECTS PROS) 

H, PRESS I/O RESET I PRESS START, 

I, PROGRAM halts AT L(JC 00299 TO PERMIT SETTING Of AC SWITCH 

OPTIONS, normal operation is with ac Switches set to oabpbb, 
TO CAUSE PROCRAH MalT-ON-ERROR, 

the ac Switch options por this program aRC 

ACS0il HALTS PROGRAM AT LOG 009201 UPON ROUTINE’S 

completion, numicr op Completed routine is 
OISPlAYEO in ac, to proceed# press continue, 

ACSlil SELECT ROUTINE WHOSE NUhBER IS SET IN ACSU 

through ACSi7, ROUTINE l8 SELECTED UPON 
ROUTINE’S COMPLETION, 

AC82*i LOOP Program, entire program is repeated, 

aCSSiiI hALT*-On-ERROR, BAD CHARACTER IS DISPLAYED IN AC, 

aCS3a0 malt at end op DATA BLOCK IF ERRORS OCCURRED, 

ERROR COUNT IS DISPLAYED 1^ AC, 

ACS12 number op routine to be SELECTED, 

through ACSl MUST BC It 

acsit 

J, PRESS CONTINUE, 

K, PROGRAM IS executed AND HALTS AT LOC 00275# PROGRAM END 
halt, IP NC OPTIONS ARE SET, OR IP NO ERRORS OCCUR, 

(SIC SECTIONS 5,1,1 aNO 6,1 POR HALTS AnO REMEDY,) 
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4,5 USE PROCEQuRE FOR PRQR 

4. INSURE TEtETYRE IS ON*uiNE 

B. TURN OFF teletype READER AND PUNCH, 

C, DEPOSIT IN UQC «0021 AnO »Ba22 THE 8 8lT COOES FoH 

characters to Be RrinteOi 

Q, SET CONSOLE ftCOlSTCR DISPLAY SWITCH TO AC, 

E. set address switches to 00200. 

F, SET AC SWITCHES TO 000004, 

C, FOR FULL BREED OPERATION LEAVE ACS0*0, fqr STALLING 
eCrWECN CHARACTERS SET AC$0il, 

H. PRESS I/O RESETi PRESS START. 

i. THE PROGRAM RUNS CONTINUOUSLY, PRINTING LINES WITH 

characters STORED fN LOC 00021 AND 00022 UNTIL STOPPED 
BY USER, 



USE procedure rOR PRC9 and PRC6 

* * W « W Oi-I* • » • « ^ ^ 9 

A. TURN ON TCLETYRC PUNCH. 

B. WITH TEUCtyPC OrrnlNEi PUNCH S IN, or blank leader, 

RETURN TELETYPE TO 0N«LINE POSITION. 

C. LOAD READER WITH BLANK LEADER, LCAVlNQ LITTUE SLAOK BETWEEN 
PUNCH AND READER, 

0 . TURN ON READER, 

C. rOR PROD, DEPOttT In LOC BiBBl ANO 00082 THE 8»B!T 
COOES rOR CHARAeTERI To BE PUNCHED, 

r. set CONSOLE REOlSTfR DISPLAY SWITCH TO AC, 

C, SET address switches TO 00800, 

H. set AC SWITCHES TO 000000 OR 000000'. 

1. FOR PULL SPEED OPERATION LEAVE ACS0«0. FOR STALLING 

aetwEEN characters set acsbai, 

J, PRESS I/O RESET! PRESS START, 

K, The selected program runs continuously until stopped by 

USER, unless errors OCCUR, AC SWlTcH OPTIONS MAY BE SET 
AT ANY TIME, 

THE AC SWITCH options FOR THIS PROGRAM aRE 

ACSSiE HALT*ON«eRROR, BAD CHARACTER IS DISPLAYED IN AC. 

ACS3P0 HALT at END OF DATA BLOCK IF ERRORS OCCURRED, 

ERROR COUNt IN AC, 

(SEE SECTIONS 9,1.1 1 FOR HALTS ANO REMEDY,) 
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5. CPrRATlN,G PROCEDURE 


5,1 PROGRAH aND/CR operator ACTION 


5,1,; normal haUTS 


LOC 20233 OPTION SET HALT, OCCURS OUfilNC PRO®, PROl# 
PROSi AND PR63 TO PCRmIt SCTTINO Of OPTIONS, 
SIT OPTIONS OESIRCO AND PRiSS CONTINUE, 

LOC 00275 procram END HALT, OCCURS AT £NO OP PRO0, 
PRCTi PRCI* ANO PROS, If NO "LOOP PRoORAm»* 
OPTIONI U SET, SET OCSiREO OPTIONS AND 
PRESS CONTINUE, IP NO OPTIONS ARC SET, THIS 
HALT REOCCURS, 

LOC 00320 ROUTINE END HALT, OCCURS AT END OP CURRENT 
ROUTINE DURING PRCS, PRCi, PRC2, ANO PR63, 

IP ACS0 IS ON, AC OISPlATS ROUTINE NUMBER. 
TO PROcECO, press CONTINUE, 
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6. ERRORS 


I’’!?? ?5*CR|RfION 


LOC 0«177 INCORRfCT PR0CR4M NUMBER iCuECTEO, SET THE 
procram number In Acsi* though ACSIT and 
PRESS CONTINUE I 

LOC 00256 NONiEXtSTENT ROuTlNC NUmSCR SCLCCTCOV SET THE 
CORRECT number IN ACSE2 ThRQUOH aSC17 AND PRESS 

continue, 

LOC 01044 SYNC ERROR, SYNC READER SUBROUTINE HAS NOT 
FOUNP SYNC character NJTHIN 145 CHARACTERS, 
POSITION Tape IN RIAOER so THAT SYNC CHAR* 

ACTcr (RUBOUT) 18 WITHInO 145 CHARACTERS 
from read STaTIQNi and PRESS CONTINUE* 

(PRC1» PROS, PRC6), 

LOC 21065 UNEXPECTED INTERRURT, A NON.TfUTYPC DEVICE 
MAS CAUSED INTERRUPT, TURN OfP DEVICE AND 
PRESS CONTINUE, (PRCli RRCS, RR66), 

lOC 21235 READ CHECK ERROR A, BAQ CHARACTER IN AC, 

PRESS CONTINUE, (ACS3 mUST BE ON fOR THIS 
HAUT To OCCUR,} (PRSl, RRaS* PR66}, 

LOC C1237 READ CHECK ERROR B, POlLOW UP HALT, 

CORRECT character IN AC. Tq PROCEED, 

PRESS CONTINUE, (PRGl, PROS. PRC6}, 

LOC 01245 BLOCK ERRORS HALT, NUHbER QP ERRORS IN AC'. TO 
proceed, PRESS continue. <PRCl,PRG3,PRC6) , 

LOC 03036 PR 62 , ROuTInE 0 ERROR HaLT, kSP PAILCO To SKIP 

wjTw keyboard PLAC set, PRESSING CONTINUE ENTERS 
SCOPE LOOP THAT SKIPS On PLAG CONTINUOUSLY, 
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7, RESTRICTIONS 

7.1 restrictions 

AUt PROGRAMS MUST 8E STARTED AT [.OC k30200, 

7.2 op|ratihs Restrictions 

PR63 AND RRGl MUST PRECEDE EXECUTION Of PRC3, 
PRC3 must precede EXECUTION Of PROS, 

e , misccuanEous 

8,1 EXECUTION' time 


PRC0I 16 M|N (MAX) 

PROll 20 MIN IMAX) 

PROS I USER dependent 
PRC 3l 40 MIN (MAX) 

PRG4 THROUGH PRC10 ARE CONT INUOuSUV RUNNING PROGRAMS 
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9, PROGRAM DISCHIPTIONS 


tHC POP-if* AfP33/3S TcUETYPE TESTS PART 2i CONSIST OF 7 
PROGRAMS ^^UMBCPCO FROM 0 TO Si 

9,1 


TMiS program contains 31 ROUTINES NUMSfREO FROM 0 TO 36 
< OCTAL), 

R.TN0 CARrIAOC RETURN TCST. ChECKs AtUITY OF 

CARRIAGE return to PRINT POSITION 1 FROM 
ALL other PRINT POSITIONS, NO PRINTING 
should OCCUR IN ANY PRInT POSITION OTHER 
than Position e, 

rtni right maroin test shohs when the right HaRGIN 

18 incorrectly AOUUSTEO, the TCST PRINTS 14 
GROUPS OF ,,,t I followed SY CHARACTERS •h > 

A correctly AOUUSTEO margin will give the 
FOLLOWING PRINTOUT! 

THE IS are PRINTED TO FACILITATE COUNTING 
PRINT POSItlONS, 

RTN2 SPACE TEST, THE TEST PRINTS / IN ALTERNATE 

POSITIONS OF THE LlNEi AFTER A OOUSLE 
CARRIAGE RETURN, IT SPACES TO THE SLANK 
POSITIONS AND PRINTS A LEFT SLANT SLASm, A 

double carriage return i$ issued after printing 
each left slant slash, 

RTN3 line feed TCST, THE TEST PRINTS a LEFT SLASH 

followed by a line feed, followed by Random 
stalls until T2 slashes have been printed, 

THE result IS A left SLaNTEO LINE FROM 
POSITION 1 TO 72, VERTICAL SPACING VARIATIONS 
WILL INDICATE IF ADJUSTMENT IS REQUIRED, 
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(9il CC^^T'D) 


RTN4 

TYPES 

LINE 

OF 

characters 

A&C. 

RTM5 

TYPES 

LINE 

OF 

characters 

DEr, 

STKj6. 

TYPIS 

LINE 

or 

characters 

CHI, 

??TA(T 

types 

LINE 

or 

characters 

JXLf 

RThii? 

TYPES 

LINE 

or 

characters 

HNO, 

RTNU 

TYPES 

LINE 

or 

characters 

P8R, 

RTN12 

TYPES 

line 

or 

characters 

SYU, 

RT#ji3 

TYPES 

LINE 

or 

characters 

VX2, 

RTM14 

TYPES 

LINE 

or 

characters 

Y2S 

RT»J15 

TYPES 

line 

or 

characters 

123 

RTNi* 

TYPES 

LINE 

or 

characters 

49S 

RTN17 

TYPES 

LINE 

or 

characters 

7SP 

PTN2e 

TYPES 

LINE 

or 

characters 

{’’p 

PTN21 

types 

LINE 

or 

characters 

%%i 

RTN22 

TYPES 

LINE 

or 

characters 


RTK23 

TYPES 

LINE 

or 

characters 

•*, 

QTN24 

TYPES 

line 

or 

characters 

• t / 

RTN25 

TYPES 

LINE 

or 

characters 

IK 

RTN26 

TYPES 

LINE 

or 

characters 

9>1 

RTN27 

types 

LINE 

or 

characters 

»CN 

RTK30 

TYPES 

LINE 

or 

characters 


RyNSl 

TYPES 

LINE 

or 

ALL characters 

t 
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(9,1 CONT’D) 


RTIV32 


RTN33 

RTN34 


RTN35 


rTn36 


TYPES LINE or ALL CHARACTERS, flXEO DELAY 

between characters in a line, delay is 
OETERHINEO at randoh, 


TYRES SIX lines or A8R33 WORST CASE PATTERN, 


tyres six lines or ASR33 worst case pattern, 
rtxco delay between characters in a line, 
DELAY 18 OETERHINEO AT RANDOHi 
THE a8R33 worst case RATTERn CONSISTS OP 
CHARACtcRS **W/ 


tyres SIX lines or asrss worst case 
pattern. 


types six lines or asris worst case pattern, 

riXEO OCLAY BETWEEN CHARACTER IN A LINE, 
delay is determined at random, 


THE aSr35 worst case PATTERN CONSISTS OF 

characters »cic 
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9,2 BRGliPUNCH TEST 

THIS program contains 15 ROUTINES NUMSE^ED FROM ^ TO 16 

toCTAi.). the test sequence used by the bqutivEs is 

A. SET UP OaTA 8U0CK 
Bt PUNCH if aQCR 

C. PUNCH IYnC CHARaCTcR (RUiOUt) 

0. PUNCH DATA BiOCK 
tf SYNC TME SfAOER 
F. READ CATA SiOCK 
Ct PUNCH TRAIUEP 

H, WAIT rOR RfADCR TO COHPICTI READING Of DATA BLOCK BEFORE 
GOING TO NCxt routine, 


rtnb 

PUNCH 

ANO 

READ 

CHECK 

SLOCK 

OF 

ALL as. 


RTNl 

PUNCH 

AND 

READ 

CHECK 

BLOCK 

OF 

CHANNEL 

1. 

RTN2 

PUNCH 

ANO 

READ 

CHECK 

BLOCK 

OF 

CHANNEL 

B. 

RTn3 

PUNCH 

ANO 

READ 

CHECK 

BLOCK 

OF 

channel 

3, 

RTN4 

PUNCH 

ANO 

READ 

CHECK 

BUOCK 

OF 

channel 

A, 

RTN5 

PUNCH 

ANO 

READ 

CHECK 

BLOCK 

OF 

channel 

5. 

RTN6 

PUNCH 

AND 

READ 

CHECK 

BLOCK 

OF 

channel 

6, 

rtnt 

PUNCH 

ANO 

READ 

CHECK 

BLOCK 

OF 

channel 

T. 

RTNlt3 

PUNCH 

ANO 

READ 

CHECK 

BLOCK 

OF 

channel 

8, 

RTMl 

PUNCH 

ANO 

READ 

CHECK 

BLoCK 


sliding 

1 pattern 

RTN12 

PUNCH 

AND 

READ 

CHECK 

BLOCK 

OF 

Sliding 

0 pattern 

RTN13 

PUNCH 

ANO 

READ 

CHECK 

BLOCK 

OF 

IS AND 1 

0S pattern 


rTM4 same As RTNi3| but randc'^ delay between 

characters punched, 

RTNiS PUNCH AND READ CHECK BLOCK OF BINARY COUNT 

pattern, 

RTM6 SAME AS RTNlSi BUT RANOcm DELAY BETWEEN 

characters punched, 
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9,3 PRCpiKEYBOARD TEST 


THIS PROGRAM CONTANS 3 ROUTlNEf HUMBCRCO fRQM 0 TO 2, 

RTH0 CHtCK* THAT K$r COMMAHO SKIPS WHEN flACRl, 

TCiT IS DONE 4f« TlMlfV 

RTNl ECHO TEST, ANY CHAKAQTtRS KCAO rPOM kEyBoARO 

AW TYREO, COWECt OPERATION VCRlPlCAtlON IS 
DONE YISUALLY iv USER. READING A RUBOUT 
character ENOS the TEST, 

RTN2 OCTAL fOU I VALENCE TEST, THE OCTAL EOU-IVALENT 

OP any characters keyed IS TYPED. READING A 
RUBOUT ENOS THE TEST, 

9 ,< PROSiCOMBlNEO READER, PRINTER* PUNCH TEST 

THIS program CONTAINS 17 ROUTINES NUHSEREO PROH 0 TO 32 
(OCTAL), all routines use the POLLOhING SEQuENCEi 

*. PILL CORE BLOCK WITH DATA TO BE PUNcHEO/PRINTEO 

Bi PUNC*^ leader 

r. PUNCH SYNC character 

0. PUNCH DATA BLOCK (NO DELAY BETWEEN CHARACTERS) 

C. SYNC THE reader 

P, RCaO/CHECK data block (RANDOM DELAY BETWEEN CHARACTERS) 
C, PUNCH DATA BLOCK (RANDOM DELAY BETWEEN CHARACTERS) 
w, read Data block (Nq delay between characters) 

1 . PUNCH trailer 

J, WAIT PoR READER TO COMPLETE REAQInC DATA BLOCK 

K, END OP TEST SEQUENCE 


RTN0 

PUNCH/PRINT 

AND 

read 

check 

BLOCK 

OP 

ABC 

rtni 

PUNCH/PRINT 

AND 

READ 

CHECK 

BLOCK 

OP 

DEP 

RTN2 

PUNCH/PRINT 

AND 

READ 

check 

BLOCK 

OP 

CHI 


PAQE 


( 9,4 CONT’O) 


RTN3 

PUNCM/PRINT 

AND 

READ 


SLOCK 

or 

jKl 

RTNA 

PUNCH/PRINT 

ANO 

READ 

check 

BLOCK 

OF 

mno 

RTNff 

punch/print 

AND 

READ 

check 

BLOCK 

or 

PQR 

RTN* 

PUNCH/PRlNt 

AND 

READ 

check 

SLOCK 

or 

STU 

RTN7 

PUNCH/PRINT 

ANO 

READ 

check 

BLOCK 

or 

vwx 

RTM0 

PUNCW/PRINt 

ANO 

READ 

check 

BLOCK 

or 

Y20 

RTNil 

PUNCH/PRINT 

ANO 

READ 

check 

BLOCK 

or 


RTN12 

PUNCH/PRINt 

ANO 

READ 

check 

BLOCK 

or 

49S 

RTNIS 

PUNCH/PRIRf 

AND 

READ 

check 

BLOCK 

or 

789 

RTN14 

PUNCH/PRINT 

AND 

READ 

check 

BLOCK 

or 

I”* 

RTN15 

PUNCH/PRINt 

AND 

READ 

check 

BLOCK 

or 


RTN16 

PUNCH/PRINT 

AND 

READ 

check 

SLOCK 

or 

»<), 

«TN17 

PUNCH/PRINT 

AND 

read 

CHECK 

BLOCK 

or 


ftTM20 

PUNCH/pRINf 

AND 

READ 

check 

BLOCK 

or 

• t/ 

RTN21 

PUNCH/PRINT 

AND 

READ 

check 

BLOCK 

or 

tl< 

RTN22 

PUNCH/PRINt 

ANO 

READ 

check 

BLOCK 

or 

• >T 

RTN23 

PUNCH/PRINT 

ANO 

READ 

check 

BLOCK 

or 

PCS 

RTN24 

PUNCH/PRINT 

ANO 

READ 

check 

BLOCK 

or 

34* 

RTN25 

PUNCH/PRlNt ANO RfAO 
printable character, 

check 

BLOCK 

or 

AWL 

RTNi26 

PUNCH/PRINT AND READ CHECK 
printer worst case pattern 

BLOCK or 

ASR33 

RTN27 

PUNCH/PRINT 

AND 

read 

check 

BLOCK 

or 

ASR3S 


PRINTER WORST CASE paTTeRN 
8UANKS, 

WITH 

INTERSPERSED 

RTKjS':? 

punch/print ano read check 

PRINTER WORST CASE PATTERN, 

BLOCK or 

1 <'CTC) 

aSR35 
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(9,4 CONt'O) 

9TN31 PUNCH/PRINT AND READ Cf»ECK BLOCK OP aSR35 

printer worst Case pattern wjth interspersed 

BLANKf*, 

RTR52 PUNCH/PRXNT AND READ CHECK BLOCKS OP SPACfi 

RUIOUT (IS AND SS), 

9.5 PRCRiPR inter exerciser 

PRINTS LINES WITH OaTA STORED IN LOC 80021 AND 00022, 

ACS0 CONTROLS PULL SPEED, OR STALL OPERATION. 

9.6 PRCS^ANO PRCS PUNCH EHERClSERS 

PROS punches and read checks OATA Blocks with data stored 

IN LOC 00021 AND 00022, AC80 CONTROLS PULL SPEED, OR STALL 

operation, 

PRC6 PUNCHES and REAO CHECKS BLOCKS OP BINARY COUNT PATTERN, 
RANDOM STALLS BETWEEN CHARACTERS, 

THE TWO EXERCISERS USE THE POLLOwINC SEqUCNCEI 

A, SET UP data BLOCKI DETERMINE WHETHEq PULL SPEED, OR STALL 
OPERATION, 

B, PUNCH leader 

C, PUNCH sync character (RUBOUT) 

D, PUNCH DATA BLOCK 

E, SYNC the reader 
r, read Data block 
G, PUNCH OATA BLOCK 

SACK TO STEP P, 



/PnP-i^3-ASK33"35 TFLFTvpp Tp; sf s -P A PT p 

/copyright I 960 , digital EOUIPWfM ma'Niak-.^ 

/ 

/PRG0-PRINTER TEST 
/O'Jgj.PUf^cH test 
/ppgj>_^ey 80 aro Test 

/PRG3-COMBlNro RE AOEP , PR I NTeR ,PUMcH TeST 

/PRC^-PRINTj-R pXpRClS^R. prints LINg-S Op ChARACT^-RS STqR^D IN LOC 0021 
/ AND 0022. 

/PRG5-PUNCH exerciser. PUNCHES a^D REaD CHECKS DaTa BLOcKS OF OaTa 
/ STORED IN LOC 0021 AND 0022. 

/PRG 6 -PUNCH exerciser. PUNCHES a^O REaD CHECKS bUOcKS OF BINaRX cOUnT 
/ Pattern. 

/ 

/starting address : P' 020 f! 

.EJECT 



Page 


2 


15TTP? 


. A8S 


00020 



.LqC 20 

00020 

000000 

kstart 

0 

00021 

000000 

PTEHP 

0 

00022 

000000 

pTempi 

0 

00023 

000000 

delaym 

0 

00024 

620002 


JMP. 

00025 

000000 


0 

00026 

000000 

delays 

0 

00027 

000000 

PRGhJljM 

0 

00030 

000017 

PRGMSK 

17 

00031 

777770 

PRGLIM 

-10 

00032 

000111 

PSW 

prgtab 

00033 

000000 

RTNNO 

0 

00034 

000000 

CURT ST 

0 

00035 

000000 

nxtst 

0 

00036 

000077 

tstmsk 

77 

00037 

000000 

MSCTR 

0 

00040 

000000 

milctr 

0 

00041 

777142 

MILl 

-636 

00042 

000000 

TEMP 

0 

00043 

000000 

TEMPI 

0 

00044 

000000 

TEMPU 

0 

00045 

000000 

UTEMP 

0 

00046 

000000 

UTEMPl 

0 

00047 

000000 

UTEMP2 

0 

00050 

000000 

ctra 

0 

00051 

000000 

ctrb 

0 

00052 

040000 

SR3MSK 

040000 

00053 

000000 

ERROR 

0 

00054 

000000 

FRRCTR 

0 

00055 

000277 

dlymsk 

277 

00056 

000000 

PFLAG 

0 

00057 

000000 

PLKCNT 

0 

00060 

00021 5 

HR 

215 

000 61 

00021 2 

L P 

212 

0006? 

777401 

MR80UT 

-377 

.EJECT 



PAC-L 


3 15TTP2 



00:''0i?0 

rBUSY 

0 


00/..! 7 

LINK 


,, ^ ^ 

0 0 7 . 0 

AC 

p 

■ ’: V' A t ■' 

00/. 24 0 

COACE 



000257 

C257 

>5^ 

00070 

000334 

C334 

334 

00071 

000001 

Kl 

1 

0007? , 

777777 

Ml 

-1 

00073 

777776 

M2 

-2 

00074 

777762 

M16 

-16 

00075 

777734 

M44 

-44 

00076 

777670 

M110 

-110 

00077 

777667 

Mill 

-111 

00100 

000000 

TEMO 

0 

00101 

000000 

TeMR 

0 

00102 

000000 

FLAG 

0 

00103 

000077 

K77 

77 

00104 

777740 

M40 

-40 

00105 

000100 

C 100 

100 

00106 

000240 

C240 

243 

00107 

740100 

SKIpMA 

sma 

00110 

741100 

SKIPPa 

SPA 

00111 

002071 

PRGTAB 

PRG0 

00112 

002527 


PRGl 

00113 

003011 


PRG2 

00114 

003107 


PRG3 

00115 

003336 


PRG4 

00116 

003346 


PRG5 

00117 

003373 


PRG6 


700322 

KRAS700322 


• EJECT 
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15t ■: 





80177 



.LOC 177 


0 817 7 

740040 


HLT 


/incorrect program number 

88200 

750004 

start 

LAS 


/READ SWITCHES 

00201 

500030 


A NO 

PRCMSK 

/and with prgmsk 

0020? 

3^0031 


Tad 

PR&LIM 

/ado program LIMIT 

0P?03 

740300 


sma:s2a 


/valid program number? 

00204 

600177 


JMP 

177 

/NO. 

00205 

750004 


LAS 


/YES. read switches 

00206 

500030 


AND 

PRGMSK 


00207 

040027 


DAC 

PRGNUM 

/Save program number 

00210 

340032 


Tag 

PSW 

/DEVELOP PROGRAM 

00211 

040042 


OAC 

TEMP 

/address. 

00212 

220042 


LAC# 

TEMP 


00213 

040221 


OAC 

PRGAOR 

/STORE AODPESS 

00214 

108533 


JMS 

Movvr 

/INITIALIZE interrupt aREA 

00215 

000024 


24 



00216 

000001 


1 



00217 

777776 


-2 



00220 

620221 


JmP* 

. ♦1 

/Cl TO SPl^CTED program 

00 221 

008000 

PRGAOR 

0 


00233 



.LOC 233 


00233 

750040 

srset 

hlt;cla 


/SELECT OPTIONS 

00234 

200020 

getroy 

LAC 

kstart 

/GET ADDR of 1ST RTN, 

0023k 

0'»0035 


DAC 

nxtst 

/STORE AT NXTST. 

00236 

100277 


JMS 

roRwn 


00237 

750004 


LAS 


/read switches 

00240 

742010 


rtl 



00241 

740400 


SNL 


/SELECT ROUTINE? 

0024? 

620034 


JMP* 

curtst 

/NO.STaT with current ROUTINE 

00243 

750004 


LAS 


/yes. READ SWITCHES. 

00244 

508036 


and 

tstmsk 


00245 

7400f»l 


CMA 



00246 

340071 


TAG 

K1 


00247 

340033 


tao 

RTNiNO 


00250 

751280 


SNaJCLA 


/IS IT THIS ROUTINE? 

00251 

620034 


JMP* 

curtst 

/YES. GO GO IT. 

0 0 2 K ? 

280075 


LAC 

nxtst 

/NO . 

02257 

340071 


Tag 

K1 


0025-1 

750208 


S2A :cla 


/LAST ROUTjnE? 

00255 

600236 


JMP 

GEtrDY+2 

/NO . 

0 0 2 K <s 

758040 

INCRTN 

HLT : CLA 


/YES. I NCORRECT routine NUMBER 

00 7^- 

600234 


JMP 

getroy 



.EJECT 



PAGE 


5 1-^TTPp 


7PI26C 

'■ 0v^3l 3 

chain 

JMS 

S H A L T 

/hALT?(ACS0) 


^ 5 ? 0 ^ 4 


L AS 


/REaO SWITCHES 

J ^ ? 



HT^ 



i10?6 3 





/routine SElECT?( acsi ) 

^ 0 ? 6' ^ 

600234 


JMP 

CETrHY 

/yEs. 

00265 

200035 


LAC 

NXTST 

00266 

340071 


TAH 

Kl 


00267 

750200 


SZa ! CLA 


/LAST RTN? 

00270 

600236 


JMP 

GETRDY+2 

/NO. 

00271 

750004 


LAS 


/yes 

0027? 

742010 


RTL 



00273 

751100 


SPA J ClA 


/LOOP PROGRAM? (ACS?) 

00274 

600234 


JMP 

GEtROY 

/YES. 

00275 

750040 

PRGENO 

hltjcla 


/NO. program end halt. 

00p76 

600260 


JMP 

CHAIN 


00277 

000000 

FORWO 

0 



00300 

220035 


LAC* 

NXTST 

/GET NEXT RTN NO. 

00301 

04{))033 


OAC 

rtnno 

/STORE AT RTnNO. 

00302 

440035 


ISZ 

nxtst 


00303 

200035 


l_AC 

nXTST 

/GET current RTn nUmB^R 

00304 

040042 


OAC 

tEHP 


00305 

440035 


ISZ 

NXTST 


00306 

200035 


LAC 

nxtst 

/GET CURRENT RTN ADDRESS 

00307 

040034 


OAC 

CURTST 


00310 

220042 


LAC* 

TEMP 

/GET NEXT RTN ADDRESS 

00311 

040035 


OAC 

NXTST 


0031? 

620277 


JMP« 

FORWO 

/EXIT. 

00313 

000000 

SHALT 

0 



80314 

750004 


LAS 


/READ SWITCHES 

00315 

740100 


SHA 


/HALT? (ACS0) 

00316 

620313 


JMP* 

Shalt 

/NO. EXIT. 

00317 

200033 


LAC 

RTNNO 

/get ROUTINE number 

00320 

740040 


hlt 


/routine and Halt 

00321 

620313 


JMP* 

ShAlT 

/EXIT 

00322 

000000 

stctr 

0 


00323 

220322 


LAC* 

stctr 

/get LOC AOOrEss 

00324 

040042 


OAC 

TEMP 

/SAVE AT TEMP 

00325 

440322 


ISZ 

STCTR 


00326 

220322 


LAC* 

STCTR 

/GET count and STORE 

00327 

060042 


OAC* 

TEMP 

/aT DESIRED location 

00330 

4403?2 


ISZ 

STCTR 


00331 

754000 


claicll 



0033? 

6203?? 


JMp* 

stctr 

/EXIT 


1003?? 

SETL0C= 

JMS STCT 

R 



.EJECT 



PAGE 


15TTP2 


6 


00333 

000000 

OLYMS 

0 



00334 

?000?3 


LAC 

DELAYM 

/SET MILLISECOND COUNT 

00-3315 

0400^7 


OAC 

MScTP 

/STORE IN MScTR 

00336 

620337 


JMP* 

. +1 


00337 

000340 


.■*■1 



00340 

200041 


LAC 

MILl 

/sEt 1 Ms Constant 

00341 

040040 


DAC 

milctr 

/STORE at milctr 

00342 

440040 


ISZ 

MILCTR 

/DELAY ONE 

00343 

600342 


JMP 

.-1 

/millisecond 

00344 

440037 


ISH 

MScTR 

/delayed number of 

00345 

60033,6 


JMP 

,-7 

/MiLLiSecONos Required? 

00346 

754000 


CLA'CLL 


/YEs. 

00347 

620333 


JMP* 

OLyMS 

/EXIT. 


100333 

delays 

JMS OLYMS 



00350 

000000 

DLCNT 

0 



00351 

100411 


JMS 

rangen 

/GET Random number 

0035? 

500055 


AND 

dlymsk 

/MASK OUT UNOESIRED BITS 

00353 

741200 


SNA 


/0? 

00354 

600351 


JMP 

. -3 

/YFS. GET another number 

00355 

7 4000 1 


CMA 



00356 

340071 


Tad 

K1 


00357 

040023 


DAC 

DELAYM 

/STORE DELAY COUNT 

00360 

620350 


JMP« 

DLCNT 

/EXIT 

00361 

000000 

CRLF 

0 



0036? 

220361 


LAC* 

CRLE 

/GET CRLE COUNT 

00363 

040375 


OAC 

CRCTR 

/and store it 

00364 

440361 


ISZ 

CRLF 


00365 

10045 1 


JMS 

TYPSTG 

/CRLE ONCE 

00366 

00037? 


. +4 



00367 

440375 


isz 

CRCTR 

/OONf ? 

00370 

600365 


JMP 

. -3 

/NO. CRLF AGAIN 

00371 

620361 


JMP. 

CRLF 

/YES, EXIT. 

0037? 

000015 


0015 


/CR 

00373 

00001 ? 


0012 


/LE 

00374 

000001 


0001 


/end CODE 

00375 

000000 

CRCTR 

0 


/CRLE COUNTER 

0037(^ 

000000 

PUNCH 

0 



00 377 

440056 


ISZ 

PFL AG 


0040P! 

700406 


TLS 


/PUNCH/PR 1 NT 

0040:** 

?00056 


LAC 

PFLAG 

/GET C(PFLAG) 

0040? 

751200 


! CLa 


/fLaG reset? 

00403 

600406 


JHP 

. +3 

/YES 

00404 

700401 


TS^ 


/NO, FLAG uP? 

0040S 

600401 


JMP 

. -4 

/NO. 

00406 

70040? 


TCP 


/YES, CLEAR PRINTER FLAG 

00407 

140056 


P ? M 

PFLAG 

/clear PFLAG 

004 I 0 

6203'^6 


JMP* 

PUNCH 

/EXIT. 




.EJECT 





PAGE 


7 1=^11?? 




/Rando»^ 

MU‘-^BER 

generator 

4 11 

0 0 0 IT 2 

R AMGEN 

7 



200437 


Lac 

Ramdex 

00413 

5 4 4 4 5 


SA-O 

(RAnTOL+10 

00414 

741000 


SKp 


00415 

600425 


JMP 

RANT AO-l 

004 1;A 

204402 


LAC 

(RANTBL 

00417 

040437 


OAC 

RAMOEX 

00420 

200436 


LAC 

RANCON 

00421 

745100 


SPA !CLL 


00422 

744002 


STL 


00423 

740010 


RAL 


004 24 

040436 


OAC 

RANCON 

0042? 

220437 


LAC* 

RANDEX 

00426 

340436 

RANTAO 

tao 

RANCON 

00427 

060437 


OAC* 

RANOEX 

00430 

200450 


LAC 

RANSAV 

00431 

740020 


RAR 


00432 

360437 


Tao* 

RaNDEX 

00433 

040450 


DAC 

RANSaV 

00434 

440437 


ISZ 

RANOEX 

00435 

620411 


JMP* 

RANGEN 

00436 

123456 

RANCON 

123456 


00437 

000450 

RANOEX 

ramtbl* 

10 

00440 

654321 

RANT 8 L 

654321 


00441 

361416 


361416 


0044? 

055363 


055363 


00443 

546060 


546060 


00444 

243035 


243035 


00445 

762572 


762572 


00446 

453237 


453237 


00447 

150214 


150214 


00450 

000000 

RAnSAV 

0 





.EJECT 




pagt b 


15TTP2 




/type 

character 

string 

00451 

000000 

typstg 

0 


0045P 

220451 


lac* 

TYPSTG 

0045.'^ 

040100 


CAC 

temo 

00454 

140102 


OZH 

flag 

00455 

440451 


IS2 

typstg 

0045ft 

220100 

tSCi 

LAC* 

TEMQ 

00457 

742020 


RTR 


00460 

742020 


RTR 


00461 

742020 


RTR 


00462 

100467 


JMS 

TSC2 

00463 

220100 


LAC* 

TEMQ 

00^6^ 

100^67 


JMS 

TSC2 

00465 

440100 


IS2 

TEMQ 

0046ft 

600456 


JMP 

TSCl 

00467 

000000 

TSC2 

0 


00470 

500103 


AND K77 


00471 

040101 


DAC 

TEMR 

00472 

200102 


Lac 

FLAG 

00473 

750200 


SZa ! CLA 


00474 

600504 


JMP 

TYPSP 

00475 

200101 


LAC 

TEMR 

00476 

741200 


SNA 


00477 

60050? 


JMP 

. 3 

00500 

100524 

TyPaT 

JMS 

print 

00501 

620467 


JMP* 

TSC2 

0050? 

440102 


ISZ 

FLAG 

00503 

620467 


JMP* 

TSC2 

005 0 4 

14010? 

TYPSP 

DZm 

FLAG 

00505 

200101 


LaC 

TEMR 

00506 

740001 


CmA 


00507 

340071 


tad 

K1 

0 0510 

74] 200 


SNA 


00511 

600500 


JMP 

typat 

0 0 5 1 2 

340071 


tao 

Kl 

0051 3 

75I200 


SNA :cl A 


00 514 

620451 


JMP* 

typstg 

0 0 5 1 

200107 


L AC 

Sk I Pm a 

00516 

040526 


DAC 

SW 1 tCH 

00^17 

200101 


LAC 

TEMR 

00520 

1 005?^ 


JMS 

PR INI 

00521 

20011 0 


LAC 

SK i PPA 

005 22 

040576 


OAC 

SWITCH 

0 0 5 23 

62046'^ 


JMP* 

TSC2 

005 p 4 

0 00 0 0 ? 

PRINT 

0 


0 5 7 5 

340104 


Tao 

M 4 

0 0 5/6 

741100 

SW 1 TCH 

SPa 


005?7 

340105 


tad 

C100 

0 05 3 0 

340106 


Tad 

0 2 4 0 

0 0531 

1 00 3 7 6 


JMS 

PUnCh 

0 0 5 3? 

620524 


JMP* 

Print 




.EJECT 



subroutine 


/GET and store string 

/ADDRESS 

/clear elag 

/SET UP EXIT 
/PICK UP data. 


/GO type 1ST character 

/PICK UP data 

/GO type 2N0 character 

/Go back eor more. 

/MAgK OFF 6 bits 
/SAVE character 
/TEST -SPECIAL" FALG. 

/SPECIAL 

/REGULAR 

/0? 

/YES. SET Flag to special 
/NO. GO print it 
/RETURN 

/SET FLAG TO "SPECIAL" 
/RETURN. 

/clear flag. 

/set character 


/IT'S0: print "p" 

/TEST FOR 01 
/0l? 

/TeS. exit code exit 
/set C(SK;TCm) to "SmA" 

/get character 
/GO print it 

/SET C<SWITcm) to "SPa". 

/RETURN. 

/COMPARE RITh 40 

/charged to SMa for SPECIAL CODES. 


/print Character 
/rEturN 



PAGE 


1‘?TTP? 


9 


>^'?5 7 3 

000000 

mqvve 

0 




?20533 


LAC* 

MOVVE 


J ?1 S 3 5 

040554 


DAC 

EfiCDP 


f0536 

440533 


IS? 

MOVVE 


00S37 

220533 


LAC* 

MOVVE 


{^054? 

040555 


OAC 

TADOR 


J00541 

440533 


IS? 

MOVVE 


0054 ?■ 

220533 


LAC* 

MOVVE 


005 4'3 

040556 


OAC 

MCTR 


00^44 

440533 


IS? 

MOVVE 


0«545 

220554 

MOVEA 

LAC* 

FADOR 


00546 

060555 


OAC* 

TAOOR 


00547 

440554 


IS? 

eaoor 


00550 

440555 


IS? 

taoor 


00551 

440556 


IS? 

mctr 


00552 

600545 


JMP 

MOVEA 


00553 

620533 


JMP* 

MOVVE 


00554 

000000 

faddr 

0 



00555 

000000 

taoor 

0 



00556 

000000 

MCTR 

0 





/SUBROUTINE TO 

INITIAL12E 

binary Pattern 

00557 

000000 

INITPT 

0 



00560 

140562 


D?M 

PT0 


00561 

620557 


JMP* 

INITPT 

/EXIT 

0056? 

000000 

PT0 

0 



00563 

000000 

PTl 

0 



00564 

000377 

PTMSK 

377 





/SET AC 

WITH NEXT rINa«T 

character subroutine 

00565 

000000 

GETPTT 

0 



00566 

200562 


LAC 

PT0 

/GET PT0 

00567 

040563 


OAC 

PTl 

/STORE at PTl 

00570 

340071 


Tad 

K1 

/INCREMENT number 

00571 

50056 4 


AND 

PT'^SK 

/LIMIT TO 8 BITS 

00572 

040562 


DAC 

PT0 

/STORE AT PT0 

00573 

200563 


LAC 

PTl 

/GET PTl 

00574 

620565 


JMP* 

GETPTT 

/EXIT 



/subroutine to 

compare cuo to c(call + i). 

00575 

000000 

CHCK 

0 



00576 

040612 


OAC 

WCHK 

/STORE AC AT CHK 

00577 

220575 


LAC* 

CHCK 

/GET compare data 

00600 

7 4-0001 


CMA 


/2’s complement it 

00601 

340071 


Tad 

K1 

/set up unequal exit 

0060? 

440575 


IS? 

CHCK 


0 0 6 0 3 

34061 ? 


tad 

WCHK 

/ADO C(WCHK) 

00 6 04 

750200 


s? A ! CLA 


/EQUAL? 

00605 

600610 


JMP 

. +3 

/NO. 

00606 

440575 


IS? 

CHCK 

/SET UP equal EXIT. EQUAL 

00607 

620575 


JMP» 

CHCK 

/EQUAL EXIT. 

00610 

20061 2 


LAC 

WC'-'K 

/RESTORE AC 

00611 

620575 


JMP* 

CHCK 

/unequal exit. 

0061? 

000000 

wchk 

0 




100533 

MqVEs JM s 

1 MgVVE 




.EJECT 



PAGE IP :‘"TTP^ 




/SET 

BUFFEP area SU 5 ROJTINE 



PI0613 

000000 

ST8F 

0 



P0614 

100533 


MOVE 

/CRLF TO BLOCK A 


00615 

000060 


CR 



00616 

003401 


BLOCKA 



00617 

777776 


-2 



00620 

1 00533 


move 

/crlf TO Block b 


00621 

000060 


CR 



00622 

003513 


RLoCKB 



00623 

777776 


-2 



00624 

100533 


move 

/crlf TO Block c 


00625 

000060 


CR 



00626 

003625 


BLoCKC 



00627 

777776 


-2 



00630 

620613 


JMP* STBF 

/exit 


00631 

000000 

FBFS 

0 


00632 

220631 


LAC* F 8 F 3 

/FILL 144 character 

BUFFER 

00633 

040636 


OAC .+3 

/WITH 3 characters 

WHOSE 

00634 

440631 


IS2 F 8 F 3 

/A-'DRESS is specified aT 

00635 

100533 


MOVE 

/c aLL + 1 


00636 

000000 


0 



00637 

003403 


blocki 



00640 

777775 


-3 



00641 

100533 


MOVE 



00642 

003403 


BLOCKI 



00643 

003406 


fiLOCKl43 



00644 

777673 


-105 



00645 

100533 


MOVE 



00646 

003403 


BLOCKI 



00647 

003515 


RL0CK2 



00650 

777670 


-110 



00651 

620631 


JMP* F8f3 



00652 

000000 

FBALL 

0 



00653 

100533 


MOVE 

/FILL 144 character 

buffer 

00654 

00l5j 6 


A 

/WITH ALL printable 

ASCI I 

00655 

003403 


RLOCKl 

/CHARACTERS. 


00656 

777701 


-77 



00657 

100533 


MOVE 



00660 

00151 6 


A 



00661 

003502 


BLoCKi+77 



00662 

777767 


-11 



00663 

100533 


MOVE 



0066 4 

003403 


BLOCKI 



00665 

00351 5 


BL0CK2 



00666 

777670 


-110 



00667 

6206^=^2 


JMP* FBALL 




.EJECT 
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15TTP? 





000000 

fbtmp 

0 


00671 

100533 


MOVE 

/FILL 144 CHARACTER BUFFER 


000021 


ptfmp 

/WITH Data in ptfmp 

006 73 

0034P3 


PLOCKi 

/AND PTFMPi. 

00674 

777776 


-2 


00675 

100533 


MOVE 


00676 

003403 


BLOCKl 


00677 

003405 


RLOCKi+2 


00700 

777672 


-106 


00701 

100533 


MOVE 


0070? 

003403 


BLOCKl 


00703 

003515 


BL0CK2 


00704 

777670 


-110 


00705 

620670 


JMP* FBTmP 


00706 

000000 

FW334 

0 


00707 

100533 


MOvE 

/FILL 144 character Buffer 

00710 

001466 


A33WP4 

/WITH 4 character ASR 33 

00711 

003403 


BLOCKl 

/WORST CASE printer PaTTeRN 

00 71^? 

777774 


-4 


00713 

100533 


move 


00714 

003403 


BLOCKl 


00715 

003407 


BLOCKi+4 


00716 

777674 


-104 


00717 

100533 


MOVE 


00720 

003403 


BLOCKl 


00721 

00351 5 


BL0CK2 


00722 

777670 


-110 


00723 

620706 


JMP* FW334 

/exit 

00724 

000000 

FW33S 

0 


00725 

100533 


MOyE 

/fill 144 character Buffer 

00726 

001472 


A33WPS 

/WITH ASR33 WORST CASE 

00727 

003403 


BLOCKl 

/Pattern with interspersed 

00730 

777770 


-10 

/blanks. 

00731 

100533 


MOVE 


00732 

003403 


bloCki 


00733 

003413 


PL0CKI+ 10 


00734 

777700 


-100 


00735 

100533 


MOVE 


00736 

003403 


BLOCKl 


00737 

003515 


BLnCK2 


00740 

777670 


-110 


007 4 1 

620724 


jMP« FW33S 

/exit 




.EJECT 




PAGF 


1^TTP2 


C5074? 

000000 

rW354 

0 




100533 


MOVE 


/FILL BUFFER ^/ITH ASR3‘=^ 

(^0744 

001502 


A35WP4 


/WORST CASE pattern. 

00745 

003403 


PLOCKI 



0074/S 

777774 


-4 



00747 

100533 


move 



00750 

003403 


BLOCKl 



00751 

003407 


PLOCKI+4 


00752 

777674 


-104 



00753 

100533 


move 



00754 

003403 


BLOCKl 



00755 

003515 


PL0CK2 



00756 

777670 


-110 



00757 

620742 


JMP* 

FW354 

/FX|T 

00760 

000000 

FW35S 

0 



00761 

100535 


MOyE 


/FILL Buffer ^ith asr35 

00762 

001506 


A35WPS 


/WORST CASE pattern WITh 

00763 

003403 


BLOCKl 


/interspersed blanks. 

00764 

777770 


-10 



00765 

100533 


MOVE 



00766 

003403 


BLOCKl 



00767 

003413 


BLOCKl* 

10 


00770 

777700 


-100 



00771 

100533 


MOVE 



00772 

003403 


BLOCKl 



00773 

003515 


BL0CK2 



00774 

777670 


-110 



00775 

620760 


JMP* 

EW35S 

/exit. 



/Punch 

leader t 

Ra ILER 

PUBROut I NE 

00776 

000000 

PLTLR 

0 



00777 

100322 


setloc 


/-70 TO LTRCTR 

01000 

001007 


LTRCTR 



01001 

777672 


-106 



0100? 

201010 


lac 

locoe 


01003 

100376 


JMs 

Punch 

/Punch 376 code 

01004 

441 007 


IS? 

L TRCTR 

/DONE? 

01005 

601002- 


JMP 

- 7 

/NO. REPEAT. 

01 00ft 

62077ft 


JMP* 

PLTLR 

/YES. EXIT 

01007 

000000 

LTRcTR 

0 



01010 

000376 

LDCDe 

376 



01011 

000000 

RsYNC 

0 


/SYNC reader subroutine 

0101? 

100322 


setloc 


/-145 TO RSCTR 

01013 

001026 


RSCTR 



01014 

777557 


-221 



01015 

101141 


JmS 

RRr'Y 

/WAIT FqR reader not BUSY. 

01016 

750001 


CLA ;CMA 



01017 

040063 


OAC 

RBUSY 

/SET reader busy INDICATOR 

01020 

100322 


setloc 


/SET reader service 

01021 

00l 064 


VCTR 


/ADDRESS. 

01022 

001027 


rsserv 



01023 

700322 


KRA 


/start read 

01024 

700042 


ION 


/enable interrupt 

01025 

621011 


JMP* 

RSYNC 


01026 

000000 

RSCTR 

0 






.EJECT 





/READ ruefer, Select reader 
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ISTTP? 


0 ! 0 ? 7 

70031 ? 

rsserv 

-Rq 

010 3 0 

7003;'? 


r A 

010 31 

3 4 00 A? 


Tad 

0103? 

750200 


S2a ;CLA 

01033 

60104? 


JMP 

01034 

1400^3 


DZm 

01035 

754000 


CLaICLL 

01036 

200064 


LAC 

01037 

. 74001:0 


RAL 

01040 

200065 


LAC 

01041 

620000 


JMP* 

0104? 

441026 


ISZ 

01043 

601066 


JMP 

01044 

750040 


HLT'CLA 

01045 

100322 


setloc 

01046 

001026 


RSCTr 

01047 

777557 


>221 

01050 

601066 


JMP 

01051 

040065 

INTSVC 

dac 

0105? 

740020 


RAR 

01053 

040064 


OAC 

01054 

700401 


tsf 

01055 

601061 


JMP 

01056 

700402 


Tcr 

01057 

140056 


DZM 

01060 

601066 


JMP 

01061 

700301 


KSf 

0106? 

601065 

/ 

JMP 

01063 

621064 


JMP* 

01064 

000000 

VCTR 

0 

01065 

740040 


HLT 

01066 

754000 

OUT 

clajcll 

01067 

200064 


LAC 

01070 

740010 


RAL 

01071 

200065 


LAC 

0107? 

700042 


ION 

01073 

620000 


JMP* 

01074 

000000 

PSTUP 

0 

01075 

100322 


SETLOC 

01076 

001140 


PADOR 

01077 

003401 


plocka 

01100 

100533 


MOVE 

01101 

000057 


PLKCNT 

0110? 

001 137 


PCTR 

01103 

777777 


-1 

01104 

621 074 


JMP« 

01105 

000000 

POCR 

0 

01106 

2211A0 


LAC* 

01107 

441140 


IS? 

01110 

100376 


JMS 

01111 

621105 


JHP« 


.EJECT 


'• 6 ; • 0 ' ^ T 

/ADD MINUS RUPDUT 
/RUBOUT? 

. +7 

/NO. 

RSUSY 

/clear reader busy. 

LINK 

/restore link. 

AC 

/RESTORE AC, 

0 

/TO mainline. 

RScTR 

/a45 characters read? 

OUT 

/NO. 

/YES. NO SYNC 
/-145 TO RSCTR 

OUT 

/TO mainline 

AC 

/Save ac 

LINK 

/SAVE LINK 
/PUNCH/PRINTER? 

. -*^4 

/NO. 

/YES. CLEAR FLAG 

PFLaG 

OUT 

/clear PFLaG. 


/READER? 

. -^3 

/NO. error. 

. -^1 

/UNEXPECTED INTERRUPT 

LINK 

/RESTORE link 

AC 

/RESTORE AC 
/enable interrupt 

0 

/TO mainline 
/PUNCH SET UP 
/SET data address 


/SET block length 


PSTUP 

/EX |T 


/Punch oaja char Sub 

PAPQR 

/SET DATA 

P ADO'^ 

/update data address 

PONCM 

/PUNCH/PRINT data 

POOR 

/EXIT 
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0111? 

000000 

PBLK 

0 


01113 

101074 


JMS 

PSTUP 

01114 

101105 


JMS 

pdcR 

01115 

441137 


Is? 

pCTR 

01116 

601114 


JMP 


01117 

621112 


JMP« 

PBLK 

01120 

000000 

PBLKR 

0 


01121 

l0l074 


JMS 

PSTUP 

01122 

101273 


JMS 

OLCNTP 

01123 

100322 


sEtlgc 


01124 

001136 


OAp 


01125 

004001 


DBLK 


01126 

221136 


LAC* 

DAP 

01127 

040023 


OAC 

oelaym 

01130 

441136 


ISZ 

DAP 

0II3I 

100333 


DELAY 


01132 

101105 


JMS 

POOR 

01133 

441137 


isz 

pCTR 

01134 

601126 


JMP 

.-6 

01135 

621120 


JMP* 

PBLKR 

01136 

000000 

DAP 

0 


01137 

000000 

PCTR 

0 


01140 

000000 

PADOR 

0 


01141 

000000 

RRDY 

0 


01142 

200063 


LAC 

PBUSY 

0II43 

750200 


S2a!CLA 


01144 

601142 


JMP 

.-2 

01145 

621141 


JMP* 

RRDY 

01146 

000000 

RSTUP 

0 


01147 

101141 


JMS 

RRDY 

01150 

440063 


IS? 

RBUSY 

0ll«;l 

100322 


setloc 


0115? 

001204 


RaDOR 


01153 

003401 


BLOCkA 


01154 

100533 


MOvE 


01155 

000057 


BLKCNT 


01156 

001205 


RBCTR 


01157 

777777 


-1 


01160 

140054 


D2m 

E RRCTR 

01161 

621146 


JMP* 

rstup 

01162 

000000 

RDRLK 

0 


01163 

101146 


JMS 

RSTUP 

01164 

100322 


setloc 


01165 

001064 


VCTR 


01166 

00121 ? 


RDSRV 


01167 

700042 


ION 


01170 

621162 


JMP* 

RDPLK 


.EJECT 


/punch oata block. full speed 

/QO PUNCH set up 
/GO PUNCH character 
/ALL characters PUNCHED? 

/NO. repeat 
/YES. EXIT. 

/PUNCH DaTa block. STaLLS. 
/DO PUNCH Setup 
/FILL delay block 

/dblk address To dar 


/GET stall count 
/STORE AT OELAYM 

/update dap address, 
/stall. 

/go punch CHaRaCTER 
/all characters PUCnCHEO? 

/NO. REPEAT. 

/Y- S.EXIT 


/WAIT FOR READER NOT BUSY SUp . 

/FETCH R BUSY 

/busy? 

/YES. 

/NO. exit. 

/READER SETUP SUBROUTINE. 

/Wait for READER NOT BUSY. 

/SET reader busy. 

/SET data address. 


/SEj BLOCK length 


/Clear error CqUnTEr. 

/exit 

/READ data block. full SPEED. 
/DO READER SET UP 
/SET reader service ADDRESS 
/TO ROSRV 

/ENABLE interrupt. 

/EXIT 
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^1171 

000000 

PQPLKR 

0 


/read Data block, stalls. 

0117? 



JMS 

p C U p 

/DO reader Setup 

01173 

100322 


SeTLOc 


/Set REAnEP seRyic' ^jcRess 

01174 

001064 


VCTR 


/To RORSRV. 

01175 

001206 


ROrSRV 



01176 

100322 


SEJLOC 


/s^T delay block AOOREss. 

01177 

001203 


DAR 


01200 

004001 


DBLK 



01201 

700042 


ION 


/ENABLE interrupt. 

01202 

621171 


JMP* 

RD 8 LKR 

/EXIT. 

01203 

000000 

OAR 

0 



01204 

000000 

RA0OR 

0 



01205 

000000 

RBCTR 

0 



01206 

221203 

RORSRV 

LAC* 

OAR 

/GET stall COUNT 

01207 

040026 


OAC 

delays 

/STORE AT DELAYS 

01210 

441203 


IS2 

OAR 

/UPDATE DAR. 

01211 

101254 


JMS 

DLMSR 

/stall 

0121? 

221204 

ROSRV 

Lac* 

Raoor 

/GET expected DaTa 

01213 

041220 


OAC 

S8 

/store at SB 

01214 

441204 


IS? 

rador 

/UPDATE Expected oaTa addr. 

01215 

700312 


KRfl 


/READ character, select READER 

01216 

700322 


KRA 



01217 

100575 


JMS 

CHCK 

/TO CHECK IT. 

01220 

000000 

SB 

0 



01221 

601223 


JMP 

ERROR 

/ERROR. 

01222 

601240 


JMP 

RUOONE 

/OK. 

01223 

040053 

ERROR 

DAC 

ERRCR 

/STORE BAD character. 

01224 

440054 


IS2 

errctr 

/♦I TO error counter 

01225 

601230 


JMP 

. +3 


01226 

750001 


CLA ;CMA 


/OFLO. 

01227 

040054 


DAC 

ERRCTR 

/RESTORE ERRCTR TO 7777. 

01230 

750004 


LAS 


/READ SWITCHES 

01?31 

500052 


ANn 

SR3MSK 


0123? 

751200 


SNAJCLA 


/HALT ON ERR0R?(ACS3) 

01233 

601240 


JMP 

RUDONE 

/NO . 

01234 

200053 


Lac 

ERRCR 

/yes. get bao character 

01735 

740040 


MLT 


/error halt. BAo ch4P in Ac- 

01236 

201220 


LAC 

SB 


01237 

740040 


HLT 


/GOOD character in AC. 

0124 0 

441205 

RUDONE 

IS? 

RBCTR 

/all done? 

012 4 1 

601066 


JMP 

CUT 

/NO. to mainline 

01242 

200054 


Lac 

errctr 

/yes. get error count. 

01243 

741200 


SNA 


/any errors? 

01244 

741 000 


SKP 


/NO. 

01245 

740040 


HLT 


/HALT. Error Count in ac. 

01246 

754000 


CLA J CLL 



01247 

140063 


02M 

RBUSY 

/CLEAR reader busy. 

01250 

P00064 


LAC 

L I NK 


01251 

740010 


PAL 


/RESTORE link 

01252 

200065 


LAC 

A C 

/RESTORE AC 

01253 

620000 


JMP, 

0 

/TO MAINLINE 




.EJECT 





®A&f 16 15TT-'' 


'1254 

000000 

DLMSR 

0 


/reader r'Ei_AV 

i* 1. 2 1; c; 

2000?6 


L ar 

DEL 

/SUBROUTINE 

01256 

041271 


D AC 

RCTRi 


01257 

621260 


JMP* 

. ♦! 


01260 

001261 


. +1 



01261 

200041 


lac 

MiLl 


01262 

041272 


dac 

rctrb 


01263 

441272 


IS2 

rctrb 


01264 

601263 


JMP 

. -1 


01265 

441271 


IS2 

rctra 


01266 

601257 


JMP 

. -7 


01267 

754000 


CLA ;CLL 



01270 

621254 


JMP* 

OLMSR 


01271 

000000 

rctra 

0 



01272 

000000 

rctrb 

0 



01273 

000000 

OLCNTP 

0 


/SUB TO TILL DELAY BLOCK 

01274 

100533 


MOVE 


/SET BLOCK length. 

01275 

000057 


BLKCNT 



01276 

001317 


OCTR 



01277 

777777 


-1 



01300 

100322 


SETlOC 


/[Rlk aodr to oaddr 

01301 

001316 


oaoor 



01302 

004001 


OBLK 



01303 

100411 

GNRND 

JMS 

RANGEN 

/GET RANDOM NUMBER. 

01304 

500055 


ANO 

DLTMSK 

/REMOVE EXCESS BITS 

01305 

741200 


SNA 


/0? 

01306 

601303 


JMP 

GNRND 

/YES. get another number 

01307 

740001 


cma 


/2’s complement it 

01310 

340071 


tao 

K1 


01311 

061316 


DAC* 

OADOR 

/stqre in delay Block* 

01312 

441316 


IS? 

OAHOR 

/uPdata delay address 

01313 

441317 


1S7 

nCTR 

/DONE? 

01314 

601303 


JMP 

GNRND 

/NO. 

01315 

621273 


JMP* 

OLCNTP 

/YES. EXIT. 

01316 

000000 

daodR 

0 



01317 

000000 

nCTR 

0 



01320 

000000 

PS^nC 

0 



01321 

750001 


CL A • cma 



01322 

100376 


JMS 

PUNCH 


01323 

621320 


JMP« 

PSVNC 





.EJECT 





1 7 

1 T ’ P ? 







/ p ‘ i r\j C H 

TEST NOP^aL test SEQUEnCE 

IM324 

007000 

KiTST 

0 



Cil325 

140063 



Phi-SY 

/CLEAR REAPER BUSY 

01326 

221324 


LAC* 

NTST 

/select punch mode 

0l3?7 

04I332 


DAC 

NTSTa 


01330 

100776 


JMS 

PLTLR 

/PUNCH leader 

01331 

101320 


jMS 

psync 

/rUnCh sync Character 

01332 

000000 

ntstA 

0 


/Punch data block 

01333 

101011 


JMS 

RSYNC 

/SYNC READER 

01334 

101162 


JMS 

RDBLK 

/read data BLOCK 

01335 

100776 


JMS 

PLTLR 

/PUNCH TRAILE’R 

01336 

101141 


JMS 

rrqy 

/Wait for reader not busy 

01337 

600260 


JMP 

Chain 

/Chain 



/PUNCH 

TESTS SPECIAL TEST 

sequence 

01340 

000000 

STST 

0 



01341 

140063 


D2M 

R8USY 

/CLEAR reader busy 

0134? 

221340 


LAC* 

STST 

/select punch mode 

0I343 

04 I 347 


OAC 

ststa 


01344 

041352 


PAC 

STSTc 


01345 

100776 


JMS 

PLTLR 

/PUNCH leader 

01346 

101320 


JMS 

PSyNC 

/Punch syNc character 

01347 

000000 

STSTA 

0 


/PUNCH OaTa block 

01350 

101011 


JMS 

RSYNC 

/SYNC READER 

01351 

101162 

STSTB 

JMS 

RORLK 

/read Data block 

01352 

000000 

STSTC 

0 


/PUNCH data block 

01353 

601351 


JMP 

STSTb 

/GO RCaO aGaIN 



/combined test 

normal TEST 

sequence. 

01354 

000000 

CNTST 

0 



01355 

140063 


DZM 

RSUSY 

/CLEAR READER BUSY. 

01356 

100776 


JMS 

PLTLR 

/PUNCH leader 

01357 

1013?0 


JMS 

PSYNC 

/punch SYNC character 

01360 

101112 


JMS 

PaLK 

/PUWtH D*TA block <N0 STALLS) 

01361 

101011 


JMS 

RSYNC 

/SYNC reader 

0136? 

101171 


JMS 

ROBLKR 

/Read data block (STallS) 

01363 

101120 


JMS 

P8LKR 

/PUNCH OATa block (STALLS) 

0 I 364 

101162 


JMS 

RDBLK 

/read data block (NO STALL) 

01365 

100776 


JMS 

PLTLR 

/PUNCH trailer 

01366 

101141 


JMS 

rrdy 

/WAiT For reader not busy. 

01367 

600260 


JMP 

CHAIN 

/chain. 




.EJECT 
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/TYPE L 

INE of 3 

characters (NO 

delay ) 

01370 

000000 

TYPLN3 

0 



01371 

140023 


D2M 

DELaYM 

•/clear DELaYM 

0137 2 

221370 


Lac* 

TYPLN3 

/GET and store DaTa ADDRESS 

01373 

041376 


DAC 

.♦3 


01374 

441370 


IS2 

TYPLN3 


01375. 

100631 


JHS 

rBF3 

/GO Fill buffer with data 

0137^ 

000000 


0 



01377 

101401 


JMS 

TYPE 

/TYPE line of data 

01400 

621370 


JMP* 

TYPLN3 

/EXIT. 



/TYPE L 

INE of aScI I printable 

characters 

01401 

000000 

TYPE 

0 



01402 

100322 


SETLOC 


/-76 TO tctr 

01403 

001422 


TCTR 



01404 

777664 


-114 



01405 

100322 


sEtloc 


/data adorEss To fetch. 

01406 

001421 


FCtCH 



01407 

003401 


BLOCKA 



01410 

200023 

TYPEA 

lac 

DELAYM 


01411 

740200 


SZA 


/stall? 

01412 

100333 


DELAY 


/YES. 

01413 

221421 


Lac* 

FETCH 

/GET character 

01414 

100376 


JMS 

PUNCH 

/PRINT IT 

01415 

441421 


Isz 

FETCH 

/update data AOOpESS 

01416 

441422 


ISZ 

TCTR 

/done? 

01417 

601410 


JMP 

TYPEA 

/NO. repeat. 

01420 

621401 


JMP* 

TYPE 

/YES. EXIT 

01421 

000000 

FETCH 

0 



0142? 

000000 

tctr 

0 



01423 

000000 

asccn 

0 



01424 

221423 


LAC* 

ASCCN 


01425 

041 460 


OAC 

WASC 


01426 

441423 


ISZ 

asccn 


01427 

221423 


LAC* 

asccn 


01430 

041461 


DAC 

SASC 


01431 

441423 


ISZ 

asccn 


0143? 

201463 


LAC 

K7700 


01433 

521460 


AND* 

WASC 


01434 

746020 


RTRICLL 



01435 

74?0?0 


RTR 



01436 

7420P0 


RTR 



01437 

101446 


JMS 

CN V 


01440 

441461 


ISZ 

SASC 


01441 

201463 


LAC 

K7700 


01442 

740001 


CMA 



01443 

521460 


AND* 

WASC 


01444 

101446 


JMS 

CNV 


01445 

621423 


JMP» 

ASCCN 



.EJECT 
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19 

15TTP? 






4 4 6 


CNV 

0 




^1447 

041462 


DAC 

aSCT 




742010 


rtl 




1 A 5 1 

740010 


RAl 




01452 

501464 


AnO 

K0707 



01453 

341462 


tad 

ASCT 



01454 

501464 


ANO 

K0707 



01455 

341465 


tad 

K6060 



01456 

061461 


OAC* 

SASC 



01457 

62144-6 


JMP* 

CNV 



01460 

000000 

HASC 

0 




01461 

000000 

SASC 

0 




01462 

000000 

ASCT 

0 




01463 

007700 

K7700 

7700 




01464 

000707 

K0707 

0707 




01465 

006060 

K6060 

6060 




01466 

000247 

A33WP4 

247 


/ » 


01467 

000337 


337 


/LEFT 

ARROW 

01470 

000327 


327 


/W 


01471 

000257 


257 


// 


01472 

000247 

A33WPS 

247 


/’ 


01473 

000240 


240 


/SP 


01474 

000337 


337 


/LEpT 

ARROW 

01475 

000240 


240 


/SP 


01476 

000327 


327 


/w 


01477 

000240 


240 


/SP 


01500 

000257 


257 


// 


01501 

000240 


240 


/SP 


01502 

000247 

A35WP4 

247 


/ • 


01503 

000333 


333 


/( 


01584 

000277 


277 


/? 


01505 

000303 


303 


/c 


01506 

000247 

A35WPS 

247 


/ • 


01507 

000240 


240 


/SP 


01510 

000333 


333 


/c 


01511 

000240 


240 


/SP 


01512 

000277 


277 


/? 


01513 

000240 


240 


/SP 


01514 

000303 


303 


/c 


01515 

000240 


240 


/SP 


01516 

000301 

A 

301 




01517 

000302 


302 




01520 

000303 


303 




01521 

000304 

n 

304 




01522 

000305 


305 




01523 

000306 


306 




01524 

000307 

G 

307 




01525 

000310 


310 




01526 

00031 1 


311 







.EJECT 






page 20 15TTP2 


01527 

000312 

J 

3i: 

P'1530 

00031 3 


313 

01531 

000314 


314 

01532 

000315 

M 

315 

01533 

000316 


316 

01534 

000317 


317 

01535 

000320 

P 

320 

01536 

000321 


321 

01537 

000322 


322 

01540 

000323 

S 

523 

01541 

000324 


324 

01542 

000325 


5 25 

01543 

000326. 

V 

326 

01544 

000327 


327 

01545 

000330 


3 30 

01546 

000331 

Y 

331 

01547 

000332 


332 

01550 

000260 


260 

01551 

000261 

one 

261 

01552 

000262 


262 

01553 

000263 


26 3 

01554 

000264 

FOUR 

264 

01555 

000265 


265 

01556 

000266 


266 

01557 

000267 

seven 

265 

01560 

000270 


270 

01561 

000271 


27T 

01562 

000241 

C241 

?41 

01563 

000242 


242 

01564 

000243 


243 

01565 

000244 

C244 

244 

01566 

000245 


245 

01567 

000246 


246 

01570 

000247 

C247 

247 

01571 

000250 


250 

01572 

000251 


251 

01 577 

000252 

C252 

252 

01574 

000253 


25 3 

015 7 5 

000254 


254 

01576 

000255 

C255 

255 

01577 

00025ft 


256 

01600 

000257 


255 

01601 

00027? 

C272 

272 

01602 

000273 


273 

01603 

000274 


274 

01604 

000275 

C275 

275 

01605 

00027ft 


276 

01606 

000277 


277 

01607 

000300 

0300 

30 0 

01610 

000333 


333 

01611 

000334 


334 


.EJEC 
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1‘^TTP? 


0161? 

000335 

0 335 

3 3 5 


2'1613 

000336 


336 


01614 

000337 


3 37 


01 6l5 

000001 

SLIdI 

1 


01616 

000002 

? 


01617 

000004 




i?l620 

000010 


10 


0,1621 

000020 


2.0 


01622 

000040 


40 ■ ’■ 


01623 

000100 


100 


01624- 

000200 


200 


01625 

000100 


100 


01626 

000040 


40 


01627 

000020 


20 


01630 

000010 


10 


01631 

000004 


4 


01632 

000002 


2 


01633 

000376 

SLIO0 

376 


01634 

000375 


375 


01635 

000373 


373 


01636 

000367 


367 


01637 

000357 


357 


01640 

000337 


337 


01641 

000277 


277 


01642 

000177 


177 


01643 

000277 


277 


01644 

000337 


337 


01645 

000357 


357 


01646 

000367 


367 


01647 

000373 


373 


01650 

000375 


375 


01651 

004003 

CRTST 

4003 

/SP» c 

01652 

002240 


2240 

/r.sp 

01653 

002405 


2405 

/T»E 

01654 

002324 


2324 

/S»T 

01655 

000001 


0001 

/End code 

01656 

004022 

rmtst 

4022 

/SP»R 

01657 

001107 


1107 

/I ,G 

01660 

001024 


1024 

/H.T 

01661 

004015 


4015 

/SP,M 

01662 

00012? 


0122 

/A ,R 

01663 

000711 


0711 

/G. I 

01664 

001640 


1640 

/N.SP 

01665 

002405 


2405 

/T,E 

01666 

002324 


2324 

/S,T 

01667 

000001 


0001 

/END CODE 
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01670 

004023 

SPTST 

4023 

/SP.S 

01671 

002001 


2001 

/P, A 

0167? 

000305 


0305 

/C,£ 

01673 

004024 


4024 

/SP.T 

01674 

000523 


0523 

/£.$ 

0167^ 

002400 


2400 

/T 

01676 

000100 


0100 

/EnO cooe 

01677 

004014 

LETST 

4014 

/SP»L 

01700 

000640 


0640 

/F,SP 

01701 

002405 


2405 

/T.E 

0170? 

002324 


2324 

/S.T 

01703 

000001 


0001 

/END code 

01704 

004003 

CHRIST 

4003 

/SP,C 

01705 

001001 


1001 

/H, A 

01706 

002201 


2201 

/R. A 

01707 

000324 


0324 

/CT 

01710 

000522 


0522 

/E.R 

01711 

004024 


4024 

/SP.T 

01712 

000523 


0523 

/E.S 

01713 

002423 


2423 

/T.S 

01714 

000001 


0001 

/END code 

01715 

004027 

WCPTST 

4027 

/SP.W 

01716 

001 72? 


1722 

/O.R 

01717 

002324 


2324 

/S.T 

01720 

004003 


4003 

/SP.C 

01721 

000123 


0123 

/A.S 

01722 

000540 


0540 

/E»SP 

01723 

002001 


2001 

/P » A 

01724 

002424 


2424 

/T.T 

01725 

000522 


0522 

/E.R 

01726 

001640 


1640 

/N.SP 

01727 

002405 


2405 

/T.E 

01730 

002324 


2324 

/S.T 

01731 

000015 


0015 

/CR 

0173? 

000012 


0012 

/LF 

01733 

0 0 00 0 1 


0001 

/END CODE 

01734 

000015 

KMSGl 

0015 

/CR 

017 3^ 

00001? 


0012 

/LF 

01736 

004001 


4001 

/SP.A 

01737 

002322 


2322 

/S.R 

01740 

006363 


6363 

/3.3 

01741 

00*^763 


5763 

/1 . 3 

01742 

006540 


6540 

/5,SP 

01743 

001331 


1331 

/K'Y 

01744 

00v3?04 


0204 

/B.O 

01745 

004024 


4024 

/SP.T 

01746 

000523 


0523 

/E.S 

01747 

002400 


2400 

/T 

01750 

001500 


1500 

/CR 

01751 

001200 


1200 

/LF 

01752 

000100 


0100 

/END CODE 
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15TTP2 

/Kf-SG? . 

type: press 

A KEY 

1 7 5 3 

000015 

KMSG2 

001,5 

/CR 

5 i 

0000 J 7 


0 v"? 2 

/LE 

755 

004020 


4020 

/SP,P 

01756 

002205 


2205 

/r.e 

01757 

002323 


2323 

/s»s 

01760 

004001 


4001 

/SP. A 

01761 

00401 3 


4013 

/SP.K 

0176? 

000531 


0531 

/e.y 

01763 

005600 


5600 

/ . 

01764 

001500 


1500 

/CR 

01765 

001200 


1200 

/LF 

01766 

000100 


0100 

/END CODE 

01767 

000015 

KMSG3 

0015 

/CR 

01770 

000012 


0012 

/LF 

01771 

004005 


4005 

/SP,E 

0177? 

000310 


0310 

/C.H 

01773 

001740 


1740 

/O.SP 

01774 

002405 


2405 

/T,E 

01775 

002324 


2324 

/S,T 

01776 

000015 

KMSG3A 

0015 

/CR 

01777 

000012 


0012 

/LF 

02000 

004003 


4003 

/SP,C 

02001 

001001 


1001 

/H, A 

0200? 

002201 


2201 

/R, A 

02003 

000324 


0324 

/C.T 

02004 

000522 


0522 

/E,R 

02005 

002340 


2340 

/S.P 

02006 

001305 


1305 

/K,E 

02007 

003105 


3105 

/Y.E 

02010 

000440 


0440 

/D . sP 

02011 

002711 


2711 

/W. I 

02012 

001414 


1414 

/L.L 

0 2013 

004002 


4002 

/SP,B 

02014 

000540 


0540 

/E.SP 

02015 

002431 


2431 

/T.Y 

02016 

002005 


2005 

/P.E 

02017 

000456 


0456 

/D, . 

02020 

000015 


0015 

/Cr 

02021 

000012 


0012 

/LF 

0202? 

004022 


4022 

/SP.R 

020?3 

002502 


2502 

/U.B 

02024 

001725 


1725 

/0,U 

02025 

002440 


2440 

/T,SP 

02026 

000516 


0516 

/E.N 

0?0?7 

000423 


0423 
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i?)2P!3e' 

074022 


4022 

/SP,R 

P) 2 *^ 31 . 

0 0 1 7 p 5 


1725 

/O.U 

02ei3? 

002411 


2411 

/T. I 

02033 

001605 


1605 

/N. E 

02034 

005600 


5600 

/. 

0203*; 

001 500 


1500 

/CR 

02036 

001200 


1200 

/LF 

02037 

001500 


1500 

/CR 

02040 

001200 


1200 

/LF 

02041 

000100 


0100 

/END CODE 

02042 

000015 

KMSG4 

0015 

/CR 

02043 

000012 


0012 

/LF 

02044 

000012 


0012 

/LF 

02045 

004017 


4017 

/SP,0 

02046 

000324 


0324 

/C,T 

02047 

000114 


0114 

/A ,L 

02050 

004005 


4005 

/SP,F 

02051 

002125 


2125 

/O.U 

0205 ? 

001126 


1126 

/I .V 

02053 

000114 


0114 

/A.L 

02054 

000516 


0516 

/E.N 

02055 

002440 


2440 

/T.SP 

02056 

002405 


2405 

/T.E 

02057 

002324 


2324 

/S.T 

02060 

000015 


0015 

/CR 

02061 

000001 


0001 

/END CODE 

02062 

00001 5 

KMSG5 

0015 

/CR 

02063 

000012 


0012 

/LF 

02064 

004040 

octeov 

4040 


02065 

004040 


4040 


02066 

000015 


0015 

/CR 

02067 

000012 


0012 

/LF 

02070 

000001 


0001 

/END code 
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■^2071 

10061 3 

PRr ,0 

JMS 

c T^. r 

/SET UP suffer area 

0207? 

10032? 


setloc 


/INITIAL ROUTINE AnoRESS 

0 5 0 77 

007-020 


KSTaRT 


/TO KSTaRT 

;-?0 7 4 

002076 


P0TS0 



02275 

600233 


JMP 

SRSl 

/GO get started 



/CARRIAGE return 

1 TEST 


02076 

000000 

P0TS0 

0 



02077 

002131 


P0TS1 



02100 

100361 


JMS 

CRLf 

/CRLE 

02101 

777776 


-2 


/TWICE 

0210? 

100451 


JMS 

ttpstg 

/PRINT TFST title 

02103 

00l65i 


CRTST 



02l0d 

100361 


JMS 

CRlE 

/CRLF 

02105 

777776 


-2 


/TWICE 

02106 

200070 


LAC 

C334 

/GET ”\" CODE 

02107 

100376 


JMS 

PUNCH 

/PRINT IT 

02110 

200077 


LAC 

Mill 


02111 

040045 


DAC 

UTrMP 

/-73 TO UTEMP 

0211? 

440045 

CRTSTA 

IS2 

UTEmp 

/All Done? 

02113 

741000 


SKP 


/NO. 

02114 

600260 


JMP 

CHAIN 

/YES, CHAIN 

02115 

200045 

crtstb 

LAC 

UTEMP 


02116 

040046 


DAC 

UTFMPl 

/C(UTEMP) TO UTEMPi. 

02117 

200066 


LAC 

space 

/SET "SPACE" CODE 

02120 

100376 


JMS 

PUNCH 

/PRINT IT. 

02121 

440046 


ISH 

UTEMPI 

/SPACED PER C(UTEmPI)? 

02122 

602117 


JMP 

. -3 

/NO. SPACE AGAIN. 

02123 

200060 


LAC 

CR 

/YES. GET "CR" CODE 

02124 

100376 


JMS 

PUNCH 

/PRINT IT 

02125 

100376 


JMS 

PUNCw 

/DUMMY CYCLE. 

02126 

200067 


Lac 

C257 

/GET "/" CODE 

02127 

100376 


JMS 

PUNCH 

/PRINT IT 

02130 

602112 


JMp 

CRTSTA 
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/RIGHT 

A K r, 1 N( 

test 


^2131 

000001 

P0TS1 




t^2l3? 

002163 


®eTs? 



02133 

100361 


j ^ 3 

CRLF 

/CRLE 

02134 

777776 


-2 


/TWICE 

02135 

100451 


JMS 

TYPSTG 

/PRINT TEST TITLE 

02136 

001 656 


chTST 



02137 

100361 


JM? 

CRLP 

/CRLE 

02140 

777776 


-2 


/TWICE 

02141 

200074 


la: 

Hi6 

/-14 TO UTEHP 

0214? 

040045 


DAC 

UTEMP 


02143 

100451 

RMTSTa 

JHS 

TYPSTG 

/PRINT •* I" 

02144 

002146 


.♦? 



02145 

602152 


jhp 

. +5 


02146 

005555 


“^555 



02147 

005555 


■=555 



02150 

001100 


1 100 



02151 

000100 


0100 



0215? 

440045 


IS? 

utemp 

/pqne 14 Times? 

02153 

602143 



RMtsTA 

/►■o. repeat 

02154 

100451 


JHS 

TYPSTG 

/^ES. PRINT "-I-" 

02155 

002157 


. ♦ "> 



02156 

602162 


JHP 

. + 4 


02157 

005511 


5511 



02160 

005500 


‘^500 



02161 

000100 


0100 



02162 

600260 


JHP 

Chain 

/ChA I N 
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/space test 



000002 

P0TS2 

? 



"2164 

002230 


P0TS3 



/2165 

100361 


JMS 

CRLF 

/CRLF 

P?166 

777776 


-2 


/TWICE 

02167 

100451 


JMS 

TYPSTG 

/PRINT test title 

021 70 

001670 


SPTST 



02171 

100361 


JMS 

CRLF 

/Cl^F 

02172 

777776 


“2 


/TWICE 

02173 

200075 


LAC 

W44 

. /-36 TO UTEMP 

02174 

040045 


OAC 

UTEMP 


02175 

100451 

sptsta 

JMS 

TYPSTG 

/PRINT\,SP 

02176 

002200 


. +2 



02177 

6022,02 


jmp 

. *3 


02200 

003440 


3440 


/ " \ *• » SP 

02201 

000001 


0001 


/ENO CODE 

03202 

440045 


IS2 

UTEMP 

/DONE 36 times? 

02203 

602175 


JMP 

sptsta 

/NO. 00 IT again 

02204 

200075 


LAC 

M44 


02205 

040045 


OAC 

UTFMP 

/-36 TO UTEMP 

02206 

200072 


LAC 

Ml 

/GET -1 

02207 

040046 

sptstb 

OAC 

UTEMPl 

/AC TO UTEMPl 

02210 

040047 


OAC 

UTEMP2 

/AND UTEMP2 

02211 

200060 


LAC 

CR 

/GET "CR** CODE 

02212 

100376 


JMS 

PUNCH 

/PRINT IT 

02213 

100376 


JMS 

PUNCH 

/DUMMY CYCLE 

02214 

200066 


Lac 

space 

/get -space" code 

02215 

100376 


JMS 

PUNCH 

/PRINT iT 

02216 

440047 


Is2 

UTEMP2 

/DONE SPACING? 

02217 

602214 


JMP 

. - 3 

/NO. repeat. 

02220 

200067 


LAC 

C257 

/YES. get "1"C0DE 

02221 

100376 


JMS 

PUNCH 

/PRINT IT 

02222 

440045 


ISZ 

UTFMP 

/DONE 36 times? 

02223 

741000 


SKP 


/no . 

02224 

600260 


JMP 

Chain 

/yEs. Chain 

02225 

200073 


LAC 

M2 

/-2 TO AC 

02226 

340046 


tao 

UTFMPl 

/ADD C(UTEMPi) 

02227 

602207 


JMP 

SPTSTB 
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I^ttpP 

/line feed test 



0223? 

000003 

P0TS3 3 



02231 

002254 

P0TS4 



02232 

100361 

JMS 

CPLF 


02233 

777776 

-2 



02234 

100451 

JHS 

tyfstg 


02235 

001677 

lftst 



02236 

100361 

JMS 

CRLF 


02237 

777776 

-2 



02240 

200076 

. LAC 

M110 


02241 

040045 

DAC 

utfmp 

/-72 yO UTEMP 

02242 

200070 

LFTSTa lac 

C334 

/GET "X" CODE 

02243 

100376 

JMS 

PUNCH 

/PRINT IT 

02244 

200061 

LAC 

LF 

/GET ”LF" CODE 

02245 

100376 

JMS 

PUNCH 

/PRINT IT 

02246 

440045 

IS? 

L'TFmP 

/done? 

02247 

741000 

SKP 


/NO. 

02250 

600260 

JMP 

CHAIN 

/YES. CHAIN 

02251 

100350 

JMS 

DLCNT 

/delay count generate 

02252 

10P'333 

DELAY 


/CFLAY . 

02253 

602242 

JMP 

LFTSTa 
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1-TTP? 


^2254 C"0f'0£M 

0226'^ 00:^267 

2225^ 10PI3ftl 
02257 unit 

02260 100451 

02261 001704 

02262 100361 

02263 unit 

02264 101370 

02265 00i5i6 

02266 600260 

02267 000005 

02270 002274 

02271 101370 

02272 001521 

02273 600260 

02274 000006 

02275 002301 

02276 101370 

02277 001524 

02300 600260 

02301 000007 

02302 002306 

02303 101370 

02304 001527 

02305 600260 

02306 000010 

02307 002313 

02310 101370 

02311 001532 

02312 600260 

02313 000011 

02314 002320 

02315 101370 

02316 001535 

02317 600260 

02320 00001? 

02321 002325 

02322 101370 

02323 001540 

02324 600260 

02325 000013 

02326 00233? 

02327 101370 

02330 001543 

02331 600260 

0233? 000014 

02333 002337 

02334 101370 

02335 001546 

02336 600260 


P0TS4 


P0TS5 


P0TS6 


P0TS7 


P0TS10 


P0TS11 


P0TS12 


P0TS13 


P0TS14 


A 

PgTSc; 

JMS 

-2 

JMS 

CHRIST 

JMS 

-2 

JMS 

A 

JMp 

5 

P0TS6 

JMS 

D 

JMp 

6 

P0TS7 

JMS 

G 

JMP 

7 

P0TS10 

JMS 

J 

JMP 

10 

P0TS11 

JMS 

M 

JMP 

11 

P0TS12 

JMS 

P 

JMP 

12 

P0TS13 

JMS 

S 

JMP 

13 

P0TS14 

JMS 

V 

JMP 

14 

P0TS15 

JMS 

Y 

JMP 

.EJECT 


CP' F 

TYPSTG 

CRLF 

TYPLN3 

CHA Im 

TYPLN3 

CHAIN 

TYPLN3 

CHAIN 

TYPLN3 

CHAIN 

TYPLN3 

CHAIN 

TYPLN3 
CHA IN 

TYPLN3 
r H 4 I N 

TYPLN3 

CHAIN 

TYPLN3 


CHAIN 


/CRLF 

/TWICE 

/PRINT title 

/CRLF 

/TWICE 

/PRINT LINE OF ABC 
/CHAI^, 

/PRINT line of DEF 

/PRINT line of GHI 


/PRINT line of JKL 


/PRINT line of MNO 


/PRINT line of POR 


/PRINT line of STU 


/PRINT line of VWX 


/PRIM line of Y70 



p 4 1 _ . f * 1 •= T T ? 



700015 

P0TS1 5 

15 


2234? 

002344 


P0TS16 


0234 1 

101 370 


JMS 

T Y P L N 3 

02342 

001551 


ONE 


02343 

600260 


JMP 

CHAIN 

?2'344 

000016 

P0TS16 

16 


0234 c 

002351 


P0TSi7 


02346 

101370 


JMS 

T V P ^ K 3 

02347 

001554 


FOUR 


02350 

600260 


JMP 

Chain 

02351 

000017 

P0TS17 

17 


0235? 

002356 


P0TS20 


02353 

101370 


JMS 

TYPLN3 

02354 

001557 


SEVEN 


02355 

600260 


JMP 

r H A I \ 

02356 

000020 

P0TS20 

20 


02357 

002363 


P0TS21 


02360 

1 01 370 


JMS 

TYPLN3 

02361 

001562 


C241 


02362 

60?260 


JMp 

CH A I ^ 

02363 

000021 

P0TS21 

21 


02364 

002370 


P0TS22 


02365 

101370 


JMS 

TYPLN3 

02366 

001565 


C244 


0236'’ 

600260 


JMp 

CHAIN 

0 2 3 7? 

? 0?022 

P0TS22 

22 


02371 

002375 


P0TS23 


02372 

10.1 370 


JMS 

TYFLN3 

02373 

001570 


C247 


02374 

600260 


JMp 

CHAIN 

02375 

?000?3 

P0TS23 

23 


02376 

?0?4?? 


P0TS24 


02377 

1 01 370 


JMS 

TYPLN3 

0240? 

001573 


C252 


02401 

600260 


JMp 

CHA I N 

0240? 

000024 

P0TS24 

24 


? ? 4 ? 3 

? ? 0 4 ? 7 


P0TS25 


vT?4 04 

101370 


JMS 

“^LNl 

t^2405 

001576 


C255 


0 24 06 

6 00 2 6 0 


JMp 

chain 

0?4?7 

? 0 ? 0 ^ 5 

P0TS25 

25 


0?41? 

?024 1 4 


P0TS26 


02411 

101370 


JMS 

T Y P L N 3 

0241? 

001601 


0272 


0 2 4 13 

600260 


JMp 

CHA IN 

v" ? 4 1 4 

000026 

P0TS26 

26 


0?415 

002421 


P0TS27 


02416 

10137? 


JMS 

TYPLN3 

0 2 4 1 7 

001604 


0275 


,‘■34 ?? 

6 0 0 2 6 0 


JMp 

Chain 




.EJECT 



/PhINT line of 123 


/PRINT L!NF of 456 


/PRINT LINF of 789 


/PRINT line OF!"# 


/PRINT line of %%& 


/PRINT line of • ( ) 


/PRINT line of 


/PRINT LINI^ of -./ 


/PRINT LINE OF : ; < 


/PRINT line of =>? 



PAGE 31 


I'STTP? 


i!'242l 

000027 

P0TS27 

27 



002426 


P0TS30 


0242? 

101 370 


JHS 

T YPLN3 

02424 

001607 


C300 


02 4 25 

600260 


JMp 

CHa in 

02426 

000030 

P0TS30 

30 


02427 

002433 


P0TS31 


02430 

101370 


JMS 

TYPLN3 

024 31 

001612 


C335 


02432 

600260 


JHp 

CHAIN 

02433 

000031 

P0Tg3l 

31 


02434 

002441 


P0TS32 


02435 

100652 


JMS 

FBALL 

02436 

140023 


D2M 

PELAYH 

02437 

101401 


JMS 

TYPE 

02440 

600260 


JMP 

CHAIN 

02441 

000032 

P0TS32 

32 


02442 

002447 


P0TS33 


02443 

100652 


JMS 

FBALL 

02444 

100350 


JMS 

DLCNT 

02445 

101401 


JMS 

TYPE 

02446 

600260 


JMP 

CHAIN 

02447 

000033 

P0TS33 

33 


02450 

002466 


P0TS34 




/PRINT 

6 LINES 

OE ASR33 

02451 

100361 


JMS 

CRLE 

02^52 

777776 


-2 


02453 

100451 


JMS 

TYPSTg 

02454 

001715 


WCPTST 


02455 

100706 


JMs 

FW334 

02456 

140023 


02M 

delaym 

02457 

100322 


SETLOC 


02460 

000050 


CTRA 


02461 

777772 


-6 


02462 

101 401 


JMS 

TYPE 

02463 

440050 


IS? 

CTRA 

02464 

602462 


JMP 

. -7 

02465 

600260 


JMP 

CHA I N 




.EJECT 



/print lines of <*C\ 


/PRINT lines OF AND LEFT ARROW. 


/PRINT LINE OF ALL CHARACTERS 


/PRINT line of all CHARACTERS. 
/FIXED delay between 
/characters 


CASE Pattern, no delay 
/CRLF 
/TWICE 

/PRINT title 

/Pattern to buffer 
/0 to oelaym 
/-6 TO CTRA 


/TYPE line 
/ALL LINES TyPED? 
/NO. REPEAT 
/YES. CHAIN 



Page 


l^TTP? 


^2 

t*2A66 00P1PI34 P0TS34 34 

02467 002501 P0TS35 


/PRINT 6 lines of ASP 33 


02470 

100706 


JMS 

FW3 34 

024 73 

100322 


SeTLOC 


02472 

000050 


CTRA 


02473 

777772 


-6 


02474 

100350 


Jms 

DlCnt 

02475 

101401 


JMS 

TYPE 

02476 

4 4 0050 


IS2 

ctra 

02477 

60?474 


JMP 

.-3 

02500 

600260 


JMP 

chain 

02501 

000035 

P0TS35 

35 


02502 

002514 


P0TS36 




/PR 1 NT 

6 lines 

ASR3 

02503 

100742 


JMS 

Ert354 

02504 

140023 


OZM 

oelaym 

02505 

100322 


SETLOC 


09506 

000050 


CTRA 


02507 

777772 


-6 


02510 

1 01 401 


JMS 

TYPE 

02511 

440050 


IS2 

CTRA 

02512 

602510 


JPD 

♦ 

02513 

600260 


JMP 

CHA I N 

02514 

000036 

P0TS36 

36 


02515 

777777 


777777 




/PRInT 

6 l^nFS 

OF ASR3 

025l6 

100742 


JMS 

f w 3 5 4 

02517 

100322 


SETLOC 


02520 

000050 


CTRA 


02521 

777772 


-6 


0252? 

1 00350 


JmS 

HlCnT 

02523 

101401 


JMS 

TyPE 

3 25 24 

440050 


ISH 

ctra 

02525 

602522 


JMP 

. -3 

yl 2 c 2 ^ 

600?60 


JMP 

r H A I N 


.F JEC' 


WORST CASE Pattern, fixed stalL retween chaRS. 
/pattern to puffer 
/-6 to cTRa 


/generate dE|.ay Count 

/TYPE LINE 

/ALL LINES TYPED? 

/NO. REPEAT. 

/Yes. chain 


WORST CASE PATTERN. NO OElAY 

/Pattern to buffer 

/0 TO DELAYM 
/-6 TO CTRA 


/TYPE line. 

/ALL LINES Typed? 
/NO. REPEAT 
/YES. chain 


WORST case pattern, eixed stall between chars. 

/PATTERN TO puffer 
/-6 TO CTRa 


/gEnErate de^ay Count 

/TyPF LINE 

/ALL LINES TYPED? 

/NO. REPEAT 
/YES. CHAIN 
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1‘STTP? 


/Program 1 . punch function test 


02527 

100322 

PRGl 

SETLOC 


/SET INTERRUPT SERVICE 

/■2530 

00000? 


? 


/address To intsvc 

02531 

001051 


intsvc 



02532 

100322 


SETLOC 


/SET block count TO 

02533 

000057 


BLKCNT 


/-256. 

02534 

777400 


>400 



02535 

100322 


SETlOC 


/InITIA, routine address 

02536 

000020 


KSTART 


/TO KSTaRT 

02537 

002541 


P1T0 



02540 

600?33 


JMP SRSET 


/GET started 



/ROUTINE0 





/PUNCH 

and read CHECK BLOCK 

OF 

ALL 0'S, 

02541 

000000 

PlT0 

0 



02542 

002552 


PlTl 



02543 

143401 


DJfM BLOCKA 


/0 TO BLOCKA 

02544 

100533 


MOVE 


/FILL BUFFER 

02545 

003401 


BLOCKA 



02546 

003402 


BLOCKA 



02547 

777401 


-377 



02550 

101324 


JMS nTST 


/Go TO NORmAi test 

02551 

101112 


JMS P8LK 


/uSE THIS CALL. 



/ROUTINE 1. 





/PUNCH 

AND read CHECK BLOCK 

OF 

channel 1. 

02552 

000001 

PlTl 

1 



02553 

002564 


P1T2 



02554 

143401 


02M plocka 



02555 

443401 


ISZ BLOCKA 


/I TO BLOCKA 

02556 

100533 


MOVE 


/FILL BUFFER 

02557 

003401 


BLOCKA 



02560 

003402 


BLOCkA^I 



02561 

777401 


-377 



02562 

101 324 


JmS NTST 


/Go to normal test. 

02563 

101112 


JMS P8LK 


/USE THIS CALL. 



/ROUTINE 2. 





/PUNCH 

and Read chech bloch 

OF 

channel 2 . 

02564 

000002 

PIT 2 

2 



02565 

002577 


P1T3 



02566 

100322 


SETLOC 


/2 TO BLOCKA 

02567 

003401 


BLOCKA 



02*570 

00000? 


? 



02571 

1 00533 


MOVE 


/FILL buffer 

0257? 

003401 


BLOCKA 



02573 

00340? 


PLOCKA-^1 



02574 

777401 


-377 



02575 

101324 


JmS nTST 


/go to normal test. 

02576 

101112 


JMS P8LK 


/USE this call 




.EJECT 





P A G F <4 

^ t:. T D 9 








/ROUTINE 3. 






/PUNCH 

and read check 

rLOch 

OF 

channel 3. 

02577 

000003 

P1T3 

3 




02600 

002612 


P1T4 




02601 

100322 


setloc 



/4 TO BlOCkA 

02602 

003401 


BLOCKA 




02603 

00000 4 


4 




02604 

100533 


MOVE 



/fill BJceFR 

02605 

003401 


BLOCKA 




02606 

003402 


BLOCKA+1 




02607 

777401 


-377 




02610 

101324 


jMS nTST 



/Go To normal TEST 

02611 

101112 


UHS PBLK 



/uSE THIS CALL 



/ROUTINE 4 






/PUNCH 

and read check 

block 

or 

channel 4 . 

02612 

000004 

P1T4 

4 




02613 

002625 


P1T5 




02614 

100322 


setloc 



/10 TO BLOCKA 

02615 

003401 


BLOCKA 




02616 

000010 


10 




02617 

100533 


MOVE 




02620 

003401 


BLOCKA 




02621 

003402 


plocka+1 




02622 

777401 


-377 




02623 

101324 


jMS ntst 



/GO TO normal TEST 

02624 

101112 


JMS PBLK 



/jSE This call 



/ROUTINE 5. 






/PUNCH 

and read check 

BLOCK 

of 

channel 5. 

0 2 6 25 

000005 

P 1 T 5 

5 




02626 

002640 


P1T6 




02627 

100322 


setloc 



/20 TO BLOCKA 

02630 

003401 


BLOCKA 




02631 

000020 


20 




02632 

100533 


move 



/FILL BUfirER 

02633 

003401 


BLOCKA 




0 2 6 3 4 

003402 


BLOCK A+l 




0 ? 3 ^ 

777401 


-377 




0 2 6 3 6 

1 0 1 3 4 


JmS nTST 



/Go To nORmAl test 

02637 

101112 


JMS PBLK 



/USE this CALL 




.EJECT 






-if 




/-.'"'UTi-e 





. 1 r 


c- 

' ^ 4 1^ 

2 0/ 0. - 

‘ 6 



■ ‘ - 6 ' 

002653 

Pit? 



2 • ' 4 ? 

1 / ? 3 9 2 

‘^E TLOC 




003401 

RLOCKA 



0264A 

000040 

40 



02645 

100533 

MOVE 



Z2646 

003401 

blocka 



02647 

003402 

PLOCKA^i 



02650 

777401 

-377 



02651 

10132^ 

JmS ntst 



02652 

101112 

JMS pclK 





/ROUTINE 7 

/PUNCH aNO BEaO CHECH 

QLCCK 

OF 

02653 

000007 

PlT? 7 



02654 

002666 

PlTi0 



02655 

100322 

setloc 



02656 

003401 

BLOCKA 



02657 

000100 

100 



02660 

100533 

move 



02661 

003401 

blocka 



02662 

003402 

BLOCKA*! 



02663 

777401 

-377 



02664 

101324 

JmS ntst 



02665 

101112 

JMS PBLK 





/ROUTINE10. 

/PUNCH ano Read check 

block 

of 

02666 

000010 

PlTl0 10 



02667 

002701 

PlTll 



02670 

100322 

setloc 



02671 

003401 

PLOCKA 



0267? 

C30200 

200 



02673 

100533 

move 

/F i ll 

0267 4 

003401 

PLOCKA 



0?675 

003402 

PLOCKA*! 



02676 

777401 

-377 



026”’^ 

101324 

JmS N t s 1 



02700 

1 0 1 1 1 2 

JMS PpLK 





/ROUTINE 11 

/PUNCH aNO REaT rnrcK 

-LOr*' 

OF 

02701 

000011 

PlTll 11 



02702 

002715 

PlTi2 



02 703 

1 0(>e;T3 

MOVE 



02704 

001 M 5 

SLIDl 



02705 

003401 

RLOCKA 



0 2 706 

777762 

-16 



O?70 7 

100533 

move 



02710 

003401 

PLOCKA 



0?7l 1 

00341 7 

BL0CKA*16 



02712 

777416 

-362 



027 13 

101324 

JmS NTS7 



0?714 

1 0 1 1 V? 

JMS R?. 6 





.r JECT 




TO BlOCKA 
/frlLL BUppER 

/GO TO normal test, 
/USE This call. 

CHA'^NEL 7. 

/100 TO BLOCKA. 
/fill BUppER 

/GO TO normal test. 
/USE this call. 

channel 8. 

/200 TO RLOCKA 
BuefEr 

/GO TO normal test 
/USE this call. 

Sliding and pattern. 

/FILL RUFTFR KITH 
/SLIDING 1 pattern. 


/Co To normal test 
/USE this call 
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/ROUTIN 

E 12 




/PUNCH 

and read 

CHECK block 


000012 

P1T12 

12 


02716 

002731 


P1T13 


02717 

100533 


MOVE 


02720 

001633 


SL'TD0 


02721 

003401 


BLOCKA 


0272? 

777762 


-16 


02723 

100533 


MOVE 


02724 

003401 


BLOCKA 


02725 

003417 


BLOCKA-^ 

16 

02726 

777416 


-362 


02727 

101 324 


Jms 

ntst 

02730 

101112 


JMS 

PBLK 



/ROUTIN 

E 13 




/PUNCH 

and read 

check block 

02731 

000013 

PlTi3 

13 


02732 

002745 


P1T14 


02733 

750001 


CLA JCMA 


02734 

500564 


and 

ptmsk 

02735 

043401 


DAC 

BLOCKA 

02736 

143402 


D2M 

BLOCKA+1 

02737 

100533 


MOVE 


02740 

003401 


BLOCKA 


02741 

003403 


BLOCKA-*- 

2 

02742 

777402 


-376 


02743 

101 324 


JMS 

ntst 

02744 

101112 


JMS 

PBLK 



/ROUTINE 14. 




/PUNCH 

ano Read 

CHECK block 



/stalls 

between 

chaRactrers 

02745 

0000 1 4 

P1T14 

1 4 


02746 

002761 


P1T15 


02747 

750001 


Cla :cma 


02750 

500564 


AND 

PTMsK 

02751 

043401 


DAC 

BLOCKA 

0275? 

1 4340? 


nzM 

pL('CKA + 1 

0?''53 

100533 


^OVE 


02 754 

003^01 


BLOCKA 


02755 

003403 


block a-*2 

02756 

777402 


-376 


02757 

1 01 324 


jmS 

nTst 

02760 

101120 


jms 

PBLKR 




.eject 



OF SLIDING 0 Pattern. 


/FILL buffer with 
/SLIDING 0 pattern 


/Go TO normal test 

/USE THIS call 
OF ONES and ?ER0S. 


/377 TO BLOCKA 

/0 TO BLOCKA^I 
/FILL BUFFER WITH 
/ONES AND ZEROES. 


/GO TO normal test 
/ uSE this call 

OF ONES and zeroes. RaNOOM 
PUNCHED. 


/377 TO BLOCKA 

/0 TO RLOCKA+1 
/FILL BUFFER WITH 
/ONES AND ZEROES 


/Go To NORmAl l^ST 
/USE this call. 





/ROUTINE 15 







/PUNCH 

aNO REaC 

ChTCK 

-LOCK 

OF 

binary count Pattern, 

- 7 1 

00001 5 

P1T15 

15 





0i'76? 

002766 


P1T16 






102773 


JMS 

P WP j M 



/GO Fjll W|Th Binary pattern 

?2764 

101 324 


JMS 

ntst 



/go to normal Test 

t2?765 

101 112 


JMS 

PBLK 



/USE THIS call 



/routine 16. 







/PUNCH 

AMD read 

CHECK 

rlock 

OF 

binary count Pattern. 



/Random 

stalls 

between 

characters PUNCHED. 

02766 

000016 

PiTi6 

16 





02767 

777777 


777777 





02770 

102773 


JMS 

FWPjN 



/Go Fjll With Binary pattern 

02771 

101324 


JMS 

NTST 



/go to normal test 

02772 

101120 


JMS 

P8LKR 



/USE this call. 

02773 

000000 

FW8IN 

0 





02774 

100322 


SETLOC 




/BLOCKA address to TEMPU 

02775 

000044 


TEMPO 





02776 

003401 


BLOCKA 





02777 

100322 


SETLOC 




/-256 TO CTRA 

03000 

000050 


CTRA 





03001 

777400 


-400 





03002 

100557 


JmS 

InITPT 



/Initialize pattern. 

03003 

100565 

fwbina 

JMS 

GETPTT 



/GET binary character 

03004 

060044 


OAC* 

TEMPU 



/store PER TEMPU 

03005 

440044 


ISZ 

TEMPU 



/♦I TO TEMPU 

03006 

440050 


IS? 

CTRa 



/DONE? 

03007 

603003 


JMP 

EHP INA 



/NO. 

03010 

622773 


JMp* 

FwPIN 



/YES. Exit 




.EJECT 







PAGE 


:^8 

15TTP? 







/PROGRAM 2 . KEVBOARD TeST 


P',3011 

100322 

PRG2 

setloc 


/initial routine address 

03012 

000020 


KSTaRT 


/to KSTaRT 

030i3 

003017 


P2T0 



03014 

100451 


JMS 

TYPSTg 

/PRINT TiTlE 

03015 

001734 


KMsGl 



03016 

600233 


JMP 

srset 

/GET started. 



/ROUTINE 0 





/CHECK 

that KSF 

COMMaNO skips with FLaGsi. 1000 "^IMES. 

03017 

000000 

P2T0 

0 



03020 

003042 


P2T1 



03021 

100322 


setloc 


/-1000 TO ctra. 

03022 

000050 


ctra 



03023 

776030 


-1750 



03024 

703302 


CAE 


/Clear all Pl^^^s. 

03025 

100451 


JMS 

TyPSTG 

/PRINT instruction 

03026 

001753 


KMSG2 



03027 

700301 


KSF 


/WAIT FOR FLAG 1. 

03030 

603027 


JMP 

. -1 


03031 

700301 


KSF 


/;-KIP ONF flag. 

03032 

603036 


JMP 

P2E0 

/NO SKIP. ERROR. 

03033 

440050 


IS2 

ctra 

/DONE 1000 times? 

0303A 

603031 


JMP 

. -3 

/NO. REPEAT. 

03035 

600260 


JMP 

CHAIN 

/YES. CHAIN 

03036 

750040 

P2E0 

HLT ! cL A 


/error, failed to Skip. 

03037 

700301 


KSF 


/SCOPE LOOP. SKIP r\ FLAG 1. 

03040 

603037 


JMP 

. -1 

/REPEAT 

03041 

603037 


JMP 

.-2 

/REPEAT 



/ROUTI 

ME 1. 





/ECHO 

test, character received 

IS typed, keyed aMD printed character 



/Should match. 

rurout character 

ENDS routine. 

03042 

0 0 0 0 0 

P 2 T 1 

1 



03043 

003061 


P2T2 



03044 

703302 


CAF 



03045 

1 00451 


JMS 

TyPSTG 

/PRINT INSTR^iCTION 

03046 

001767 


KMSG3 



03047 

700301 

P 2 T 1 A 

KSF 


/READY? 

0 3v'^50 

603047 


JMP 

. - ^ 

/WAIT 

03 051 

700312 


krr 


/READ character. 

0 305? 

700406 


TLS 


/PRINT IT 

v^3053 

700401 


TSP 


/done Typing? 

03054 

603053 


JMP 

- 1 

/NPO . W A I j . 

03055 

3400^2 


TAO 

MRPOUT 


03056 

740200 


S2a 


/RUbOUT? 

03057 

603047 


JMP 

P 2 T ^A 

/NO. REPFAT 

0 3 li* 5 

600260 


JMP 

chain 

/YES, CHAIN 


.E JECT 



PAG 


►: 39 15TTP2 




/ROUT 1 f. 

C 2. 





/OrTAL 

E 0 U : V 6 ^ ; 

Test, the 

opTaL equiVai or aNY cha 



/keyed 

IP =c:p- 

e:^. RU 9 P 0 UT 

ENOS oOUT'me, 

2 3001 

00000? 

P?T2 

2 



2 306? 

777777 


777777 



2 306 3 

70330? 


cat 



03364 

100451 



TYT'stG 

/ppiNr instruction 

03065 

00204? 


KMSG4 


03066 

100451 


JHS 

TYPSTG 


03067 

001776 


KHS03A 


03070 

700301 

P2T2A 

KSE 


/READY? 

03071 

603070 


JMP 

. “ i 

/NO. WAIT 

0307? 

70031? 


krd 


/YES. Read keyboard 

03073 

043106 


DAC 

P2T2W 


03074 

1014?3 


JMS 

ASCCn 

/connect Character to 

03075 

003106 


P2T20 


/printable octal 

03076 

002064 


OCTEQV 



03077 

100451 


JMS 

TYPSTG 

/PRINT octal equivalent 

03100 

00206? 


KMSG5 



03101 

203106 


LAC 

P 2 T 2 W 


0310? 

34006? 


tao 

MRPOUT 


03103 

740200 


SZA 


/RUBOUT? 

03104 

603070 


JMP 

P 2 T 2 A 

/no. 

03l0*j 

600260 


JMP 

CHA I N 

/YES. CHAIN 

03106 

000000 

P2T2W 

0 






•EJECT 
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/program 3. combined reader. 


(*3107 

100322 

PRG3 

setloc 


03iap 

000002 


2 


03111 

001051 


INTSVC 


03112 

100322 


sEtloc 


03113 

000057 


8LKCNT 


03114 

777552 


'226 


03115 

1 0061,3 


JMS 

ST5E 

03116 

100322 


SEtLOC 


03117 

000020 


f kstart 


03120 

003122 


P3T0 


03121 

600233 


JMP 

SRSET 

0312? 

000000 

P3T0 

0 


03123 

003127 


P3T1 


03124 

100631 


JMS 

E8F3 

03125 

001516 


A 


03126 

101354 


JmS 

CnTST 

03127 

000001 

P3Tl 

1 


03130 

003134 


P3T2 


03131 

100631 


.'JMS 

FBF3 

03132 

001521 




03133 

101354 


|iMs 

cntst 

03134 

000002 

P3T2 

% 


03135 

003141 


I3T3 


03136 

100631 



FBF3 

03137 

001524 


% 


03140 

101354 



cntst 

03141 

000003 

P3T3 

3 

03142 

003146 


P3T4 


03143 

100631 


JMS 

r8F3 

03144 

001527 


J 


03145 

101354 


JMS 

CNTST 

03146 

000004 

P 3 T 4 

4 


03147 

003153 


P3T5 


03150 

100631 


JMS 

FBF3 

03151 

001532 


M If 


0315? 

101354 


JM^ 

CNTST 

03153 

000005 

P 3 T 5 

5 


03154 

003160 


P 3 T 6 


03155 

100631 


JMS 

r8F3 

03156 

001535 


P 


03157 

101 354 


JMS 

CNTST 

03160 

000006 

P3T6 

6 


03161 

003165 


P3T7 


03162 

100631 


JMS 

F8F3 

03163 

001540 


S 


03164 

1 01354 


JMS 

CNTST 




.EJECT 



PRINTER, PUNC« test 

/SET interrupt service to 

/INTSVC 

/sEt block count 

/TO -150 

/set up ruefer. 

/initial routine 

/ADDRESS TO KSTaRT 
/GET started. 

/DATa:ABC 


/PATa:DEF 


/OATa:GHI 


/DATA : JKL 


/DATA :HN0 


/DATA :PQR 


/DATA :STU 
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■•'^1^5 ^00f!iPI7 

■'*.167 iE'0631 

03170 001543 

t'3l7l 101354 

03172 000010 

03173 003177 

P3i74 100631 

03175 001546 

03176 101354 

33177 000011 

03200 003204 

03201 100631 

03202 001551 

03203 101354 

03204 000012 

03205 003211 

03206 100631 

03207 001554 

03210 101354 

03211 000013 

03212 003216 

03213 100631 

03214 001557 

03215 101354 

03216 000014 

03217 003223 

03220 100631 

03221 001562 

03222 101354 

03223 000015 

03224 003230 

03225 100631 

03226 001565 

03227 101354 

03230 000016 

03231 003235 

03232 100631 

03233 001570 

03234 101354 

03235 000017 

03236 00324? 

03237 100631 

03240 001573 

03241 101354 


P3 ' 7 



^ 3Ti7 

tM Q 

3 


V 

jHS 

CNTS3 

P3T10 

' 0 



-3111 

JMS 

FBF 3 


Y 

JMS 

CNTST 

P3T11 

1 1 



P3T12 

JMS 

rBE3 


ONE 

JMS 

CNTST 

P3Ti2 

12 



P3T13 

JMS 

FBF3 


FOUR 



JMS 

CNTST 

P3Ti3 

13 



P3T14 

JMS 

F8F3 


SEVEN 

JMS 

CNTST 

P3T14 

14 



P3T15 

JMS 

F8F3 


C241 

JMS 

CNTST 

P3Ti5 

15 



P3T16 

JMS 

FBF3 


C244 

JMS 

CNTST 

P3Ti6 

16 



P3T17 

JMS 

F8F3 


C247 

JMS 

CNTST 

P3Ti7 

17 



P3T20 

JMS 

F8f 3 


r252 

JMS 

.EJECT 


cntst 


/OiTA;VWV 


/DATA; Y?0 


/0aTa:i23 


/0ATa:456 


/DATA: 789 


/DATA : : 


/DATA : *x,< 


/DATA t * ( ) 


/DATA!** 



P!3?4? 

000020 

P3T20 

20 





/3?43 

003247 


P3T21 





^3244 

• 100631 


JMS 

rgF3 

/DATA : - . / 



03245 

001576 


C255 





03246 

1 01354 


JMs 

CNtsT 




03247 

000021 

P3T21 

21 





03250 

003254 


P3T22 





03251 

100631 


JM5 

r8F3 

/DATA ; J ; < 



0325? 

001601 


C272 





03253 

101354 


JMs 

cntst 




03254 

000022 

P3T22 

22 





03255 

003261 . 


P3T23 





03256 

100631 


JMS 

FBF3 

/Data;=>? 



03257 

001604 


C275 





03260 

101354 


JMs 

CNtsT 




03261 

000023 

P3T23 

23 





03262 

003266 


P3T24 





03263 

100631 


JMS 

F8F3 

/Data;«iC\ 



03264 

001 607 


C300 




03265 

101354 


JMS 

^NTST 




03266 

000024 

P3T24 

24 





03267 

003273 


P3T25 





03270 

100631 


JMS 

FBF3 

/OATA:]t and LEFT ARROW 


03271 

001612 


C335 





03272 

101354 


JMS 

CNTST 




03273 

000025 

P3T25 

25 





03274 

003277 


P3T26 





03275 

100652 


JMS 

F8ALL 

/data: all printable 

ASCII, 


03276 

101354 


JMS 

rNTST 




03277 

000026 

P3T26 

26 





03300 

003303 


P3T27 





03301 

100706 


JMS 

FW334 

/DATA! ASR33 printer 

worst 


03302 

101354 


JMS 

CNTST 

/case Pattern. 



03303 

000027 

P3T27 

?7 





03304 

003307 


P3T30 





03305 

100724 


JMS 

FWT3S 

/Data: asR33 printer 

WORST 

CASE 

03306 

101 3‘=;4 


JMS 


/pattern with interspersed 

BLANKS 

03307 

000030 

^3^30 

30 





03310 

003313 


P3T31 





03311 

100742 


JMS 


/Data: asR35 printer 

WORST 

CASE 

03312 

101354 


JMS 

CNTS"^ 

/pattern. 



03313 

00003 

P3T31 

31 





03314 

00331 7 


P3T32 





03315 

100760 


JMS 

'^W35S 

/Data: ASR 35 printer 

WORST 

CASE 

03316 

101354 


JMS 

CNTST 

/pattern with INTrcS 

FERSfd 

blanks 




.EJECT 
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03317 

0 0 0 0 3 2 

P 3 T 32 

32 






03320 

777777 


777177 






03321 

750001 


Cl a ! Cma 




/DATA: "lE’S A^'D 2*"R0ES. 


03322 

500S64 


AND 

PTHsK 





03323 

043403 


DAC 

RLOCKi 





03324 

143404 


n2H 

BLOCKi+i 





03325 

100533 


HOVE 






03326 

003403 


PLOCKi 






03327 

005405 


8L0CK1+2 





03330 

777672 


-106 






03331 

100533 


HOVE 






03332 

003403 


BUOCKl 






03333 

003515 


8L0CK2 






03334 

777670 


-110 






03335 

101354 


JMS 

cntst 







/PROGRa^^ 

1 4. print 1 INEs 

OF 

data 

IN LOC 00021 AND 00022. 




/If ACSg 

IS0, EULL 

SPEED. 

IF 

ACS0 

si STALL between CHaRaCTERS 


03336 

100613 

PRG4 

JHS 

STpf 



/SET UP buffer 


03337 

100670 


JMS 

ebtmp 



/FILL buffer WITH data. 


03340 

140023 


02M 

OELAYM 





03341 

750004 


LAS 




/READ ACS 


0334? 

75 II 00 


SPA :CLA 




/stall? 


03343 

100350 


JMS 

OLCNT 



/YES. 


03344 

101401 


JHS 

TYPE 



/TYPE line 


03345 

603340 


JMP 

PrG4+2 







/PROGRAM 

t 5. PUNCH and read 

CHECK OATa blocks WITH OaTa IN 

LOC 00021 



/000?? . 

IF ACS0= 

0 , FULL 

SPEED. 

IF ACS0S1 stall between CHARACTERS 

03346 

204403 

PRG5 

LAC 

{ I NTSVc 



/set interrupt Service to 

INTSVc 

03347 

040002 


OAC 

2 





03350 

204404 


LAC 

( -400 



/set Block count to -256 


03351 

040057 


DAC 

BLKCNT 





03352 

100533 


MOVE 




/FILL BUFFER WITH DATA. 


03353 

000021 


pTEMP 






03354 

003401 


blocka 






03355 

777776 


-2 






03356 

100533 


MOVE 






03357 

003401 


BLOCKA 






03360 

003403 


PLOCKA+2 






03361 

777402 


-376 






03362 

204405 

PRG5 A 

LAC 

(JmS PPLK 


/preset For full speed run. 

03363 

043372 


HAC 

PRG 5 V 





03364 

750004 


LAS 




/READ ACS. 


03365 

750100 


SMA !CLA 




/stall? 


03366 

603371 


JMP 

PRG5V-1 



/NO. 


03367 

2044fj6 


LAC 

(JMS PrLKR 


/YES. Set up STST subroutine 

03370 

043372 


O^c 

PRG 5 V 



/to stall. 


03371 

101340 


JMs 

STST 



/GO TO Special subroutine 


0337? 

000000 

PRG5V 

0 




/JMS PBLK, or JMS pblkr 





.EJECT 
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15TTP? 




/PPQGRaM 

' 6. 

PUNCH and bead 

check blocks of bi'^aR'^ count Pattern. 



/If A C S pi 

= 0, 

PULL SPEED. IF 

acS0=i Random stalls between class punched 

03373 

204403 

PRG6 

LAc 

( I NTPVc 

/Set interrupt service to iNTsvr 

03374 

040002 


DAC 

2 


03375 

204404 


LAC 

(-400 

/SEj BLOCK COu^T 1° "256 

03376 

040057 


DAC 

blkcnt 


03377 

102773 


JMS 

FW8IN 

/FILL BUFFER WITH BINARY COUNT. 

03400 

603362 


JMP 

PRG5A 


03401 

000215 

y 

blocka 

215 


/CR 

0340? 

000212 


212 


/LF 

03403 

000000 

blocki 

0 



03513 



.LoC 

BLoCKl+110 


03513 

000215 

BLOCKS 

215 


/CR 

03514 

000212 


212 


/LF 

03515 

000000 

BLOCK? 

0 



03625 



.LOC 

BLOCK2+110 


03625 

000215 

BLOCKC 

215 


/CR 

03626 

000212 


212 


/LF 

04001 



.LOC 

BLOnKA+400 


04001 

000000 

DBLK 

0 



04401 



.LOC 

DBLK+400 



000000 


.END 




04401 

000450 *L 





04402 

000440 •L 





04403 

001051 *L 





04404 

777400 ♦L 





04 405 

101112 *L 





04406 

101120 *l 





SI?E 

S04407 NO error lines 




PAGF - 

15 15TTP2 

A 

M 5 1 6 

AC 


ASCCN 

7t^ 423 

ASCI 

01462 

A33WP-S 

01472 

A33WP4 

014 6 6 

A35WPS 

01506 

A35WP4 

01502 

Bl k cn t 

00057 

BlOCKA 

03401 

RLOCKB 

03513 

BLOCKC 

03625 

RLOCKl 

03403 

PLOCK2 

03515 

CHAIN 

00260 

CHCK 

00575 

CHRjSt 

01704 

cLor 

700004 

C L ON 

700044 

CLSF 

700001 

CNTST 

01354 

CNV 

01446 

CR 

00060 

CRCTR 

00375 

CRLF 

00361 

CRTST 

01651 

crtsta 

02112 

crtstb 

02115 

ctra 

00050 

CTRB 

00051 

CURTST 

00034 

C100 

00105 

C240 

00106 

C241 

01562 

C244 

01565 

C247 

01570 

C252 

01573 

C255 

01576 

C257 

00067 

C27? 

01601 

C275 

01604 

C300 

01607 

C334 

00070 

C335 

01612 

n 

01521 

OAOOR 

01316 

OAP 

01136 

DAR 

01203 

nBLK 

04001 

OCTR 

01317 

DELAY 

100333 

DELAYM 

00023 

DELAYS 

00026 

DLCNT 

00350 

DLCNTP 

01273 



PAGE ^6 


15TTP2 


OLPSR 

PI 2P4 

DLYMS 

00333 

DLYMSh 

00055 

EEM 

707702 

errcr 

00053 

ERRCTR 

00054 

ERROR 

01223 

faddr 

00554 

FBALL 

00652 

FBF3 

00631 

fbtmp 

00670 

FETCH 

01421 

FLAG 

00102 

FORwD 

00277 

FOUR 

01554 

FWB 1 N 

02773 

FW8INA 

03003 

FW33S 

00724 

FW 334 

00706 

FW35S 

00760 

FW354 

00742 

G 

01524 

GETPTT 

00565 

GETRPv 

00234 

gnrno 

01303 

incrtn 

00256 

INITPT 

00557 

INTSVC 

01051 

J 

01527 

KMsGl 

01734 

KMSG2 

01753 

KHSG3 

01767 

KMSG3A 

01776 

KMSG4 

02042 

KMSG5 

02062 

KRA 

700322 

KRR 

700312 

KSF 

700301 

KSTART 

00020 

K0707 

01464 

K1 

00071 

K6060 

01465 

K77 

00103 

K7700 

01 463 

LOCDE 

01010 

LFM 

7f^7704 

LF 

00061 

LFTST 

01677 

lftsta 

0 224 2 

LINK 

00064 

ltrctr 

01007 

M 

01532 

MCTR 

00556 

milctr 

00040 

Mill 

00041 
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15TTP? 

HOVE 

100533 

HOVE A 

00545 

’-OWE 

08533 

hRPOuT 

00062 

hsctr 

00037 


00072 

«110 

00076 

Mill 

00077 

M16 

00074 

«2 

00073 

M40 

00104 

M44 

00075 

NTST 

01324 

NTSTA 

01332 

NXTST 

00035 

OCTEOV 

02064 

ONE 

01551 

OUT 

01066 

P 

01535 

PADOR 

01140 

PBLK 

01112 

P8LKR 

01120 

pcr 

700202 

PCTR 

01137 

POOR 

01105 

PELAG 

00056 

pltlr 

00776 

PR G ADR 

00221 

PRGENO 

00275 

PRGLIN 

00031 

PRGHSK 

00030 

PRGNUM 

00027 

prgtab 

00111 

PRGe 

02071 

PRGl 

02527 

PRG2 

03011 

PRG3 

03107 

PRG4 

03336 

PRG5 

03346 

PRC5A 

03362 

PRG5 V 

03372 

PRG6 

03373 

PRINT 

00524 

PSA 

700204 

PSP 

700244 

PSP 

700201 

PSTUP 

01074 

PSW 

00032 

PSYNC 

01320 

PTFHP 

00021 

PTEMPl 

00022 

PTHSK 

00564 

PTP 

00562 

PTl 

00563 

PUNCH 

00376 
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15~ 

P0TS0 

02076 

P0TSt 

02131 

P0TS10 

02306 

P0TS11 

02313 

P0TS12 

02320 

P0TS13 

02325 

P0TS14 

02332 

P0TS15 

02337 

P0TS16 

02344 

P0TS17 

02351 

P0TS2 

02163 

P0TS20 

02356 

P0TS21 

02363 

P0TS22 

02370 

P0TS23 

02375 

P0TS24 

02402 

P0TS25 

02407 

P0TS26 

02414 

P0TS27 

02421 

P0TS3 

02230 

P0TS30 

02426 

P0TS31 

02433 

P0TS32 

02441 

P0TS33 

02447 

P0TS34 

02466 

P0TS35 

02501 

P0TS36 

02514 

P0TS4 

02254 

P0TS5 

02267 

P0TS6 

02274 

P0TS7 

02301 

P1T0 

02541 

PlTl 

02552 

P1T10 

02666 

PITH 

02701 

PIT 12 

02715 

P1T13 

02731 

P1T14 

02745 

P1T15 

02761 

PIT 16 

02766 

P1T2 

02564 

PITS 

02577 

P1T4 

02612 

PITS 

02625 

P1T6 

02640 

PIT? 

02653 

P2E0 

03036 

P2T0 

0301 7 

P2T1 

03042 

P2T1A 

03047 

P2T2 

03061 

P2T2A 

03070 

P2T2W 

03106 

P3T0 

03122 


03127 



D A G f 





7 317? 

P3T11 

03177 

P3T12 


P3T13 

03211 

P3T14 

03216 

P3T15 

03223 

P3T16 

03230 

P3T17 

03235 

P3T2 

03134 

P3T20 

03242 

P3T21 

03247 

P3T22 

03254 

P3T23 

03261 

P3T24 

03266 

P3T25 

03273 

P3T26 

03277 

P3T27 

03303 

P3T3 

03141 

P3T30 

03307 

P3T31 

03313 

P3T32 

03317 

P3T4 

03146 

P3T5 

03153 

P3T6 

03160 

P3T7 

03165 

RAOOP 

01204 

RANCON 

00436 

ranoex 

00437 

RANGEN 

00411 

RANSAV 

00450 

RANTAO 

00426 

RANTBL 

00440 

RBCTR 

01205 

R8USY 

00063 

RCF 

700102 

RCTRA 

01271 

rctrr 

01272 

RDRLK 

01162 

ROBLKR 

01171 

rdrsrv 

01206 

ROSRV 

0121? 

RMTST 

01656 

rmtsta 

02143 

RRB 

700112 

RRDY 

01141 

RSA 

700104 

RSB 

700144 

RSCTR 

01026 

RSF 

700101 

RSSERV 

01027 

RSTUP 

01146 

RSYNC 

01011 

RTA'NO 

00033 

RUDONE 

01240 

S 

01540 



r 

•"' 1 

SASC 

fll46l 

se 

0122(1 

setloc 

100322 

SEVEN 

01557 

SHALT 

0031S 

skipma 

00107 

SKIPPA 

00110 

SLIO0 

01633 

SLIDl 

01615 

SPACE 

00066 

SPTST 

01670 

sptsta 

02175 

sptstb 

02207 

srset 

00233 

SR3MSK 

00052 

start 

00200 

STBF 

00613 

STCTR 

00322 

STST 

01340 

STSTA 

01347 

STSTB 

01351 

STSTC 

01352 

SWITCH 

00526 

TAnoR 

00555 

TCF 

700402 

TCTR 

01422 

TEMP 

00042 

TEMPU 

00044 

TEMPI 

00043 

TEHQ 

00100 

TEMR 

00101 

TLS 

700406 

TSCl 

00456 

TSC2 

00467 

TSF 

700401 

TSTmSk 

00036 

T vPaT 

00500 

TYPE 

01401 

TYPEA 

01410 

TYPLN3 

01370 

TYPSP 

00504 

typstg 

00451 

utemp 

00045 

UTFHPI 

00046 

u T E t-i P 

00P47 

V 

015 4 3 

VCTR 

01064 

*• ASC 

014 6 0 

kCHK 

0061 ? 

WCPTST 

01 715 

Y 

01546 

.EOT 

00000 



.ECT 

000?^* 

KSTah’ 

i*00?0 

PTFMP 

000?1 

P tempi 

00022 

OELaym 

00023 

DELAYS 

00026 

PRGNUH 

00027 

PRGHSK 

00030 

PRCLIR 

00031 

psw 

00032 

rtnno 

00033 

CURTST 

00034 

nxtst 

00035 

tstmsk 

00036 

msctr 

00037 

MIUCTR 

00040 

MILl 

00041 

TEMP 

00042 

TEMPI 

00043 

TEMPU 

00044 

UTEMP 

00045 

UTEMPl 

00046 

UTEMP2 

0004 7 

ctra 

00050 

ctrb 

00051 

SR3MSK 

00052 

errcr 

00053 

frrctr 

00054 

dlymsk 

30055 

pflag 

00056 

BLKCNT 

00057 

CR 

00060 

LE 

00061 

mrrout 

00062 

RBUSY 

00063 

LINK 

00064 

AC 

00065 

SPACE 

00066 

C257 

00067 

C334 

00070 

K1 

00071 

Ml 

00072 

M2 

00073 

M16 

00074 

M44 

00075 

M110 

00076 

Mill 

00077 

TEMQ 

00100 

temr 

00101 

FLAG 

00102 

K77 

00103 

M4P 

00104 

C1P0 

00105 

C240 

00106 

SKIpmA 

00107 





s*< IPPA 

? !■’ 1 1 ? 

PRGT *9 

00111 

start 

00200 

PRGAOR 

00221 

SRSET 

00233 

GETRDV 

00234 

f NCRT n 

00256 

CHAIN 

00260 

PRCENO 

00275 

FORWD 

00277 

smalt 

00313 

STCTR 

00322 

OLYMS 

00333 

OLCNT 

00350 

CRLF 

00361 

CRCTR 

00375 

PUNC^ 

00376 

RANCEN 

00411 

rantat 

00426 

RANCON 

00436 

RANOEk 

00437 

Rantbl 

00440 

RANSAV 

00450 

TYPSTG 

00451 

TSCl 

00456 

TSC2 

00467 

typat 

00500 

TYPSP 

00504 

PRINT 

00524 

SWITCH 

00526 

Hcvvr 

00533 

HOVE A 

00545 

FAC’D‘=^ 

00554 

tacdr 

P0555 

hctr 

00556 

:m Tp-' 

00SK7 

DT,» 

0056? 

PTl 

00563 

pT**Sk 

00564 

GETPTt 

0056 5 

r^-CK 

00575 

wOHK 

0061 ? 

StPE 

00613 

rpr 3 

00631 

PR AL . 

i?0652 

TB”''- 

00670 

r w 3 .i 

00706 

r*'3?s 

00724 

PW354 

0074 ^ 


.V760 

PLTlR 

0V1776 

1 trctr 

01007 

loroT 

0101 0 

BSvVjC 

?! 0 : 1 



15TTP 


page ‘^3 

RSSE»V l’'i027 

INTSVC k'1051 

VCTR 01064 

OUT P1066 

PSTUP 01074 

POOR 01105 

PBLK 01112 

PBLKR 01120 

DAP 01136 

PCTR 01137 

PAOOR 01140 

RROY 01141 

RSTUP 01146 

RDBLK 01162 

R08LKR 01171 

OAR 01203 

RAOOR 01204 

RBCTR 01205 

RORSRV 01206 

ROSRV 01212 

SB 01220 

ERROR 01223 

RUDONE 01240 

OLMSR 01254 

RCTRA 01271 

RCTRB 01272 

niCNTP 01273 

GNRNO 01303 

OAOOR 01316 

OCTR 01317 

PSYnC 01320 

NTST 01324 

NTSTA 01332 

STST 01340 

STSTA 01347 

STSTB 01351 

STSTC 01352 

CNTST 01354 

TYPLN3 01370 

type 01401 

TYPEA 01410 

FETCH 01421 

TCTR 01422 

ASCCN 01423 

CMV 01446 

WASC 01460 

SASC 01461 

ASCT 01462 

K7700 01463 

K0707 01464 

K6060 01465 

433wP4 01466 

A333<PS 01472 

A35WP4 01502 

A35WPS 01506 
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15TTP? 


A 

01516 

D 

01521 

G 

01524 

J 

01527 

M 

01532 

P 

01535 

S 

01540 

V 

01543 

Y 

01546 

0N€ 

01551 

FOUR 

01554 

SEVEN 

01557 

C241 

01562 

C244 

01565 

C247 

01570 

C252 

01573 

C255 

01576 

C272 

01601 

C275 

01604 

C300 

01607 

C335 

01612 

SLiOl 

01615 

SLIO0 

01633 

CRTST 

01651 

RMTST 

01656 

SPTST 

01670 

LFTST 

01677 

GHRTST 

01704 

WCPTST 

01715 

KMSGl 

01734 

KMSG2 

01753 

KMSG3 

01767 

KMSG3A 

01776 

KMSG4 

02042 

KMSG5 

02062 

OCTEQV 

02064 

PRGPI 

02071 

P0TS0 

02076 

crista 

02112 

CRTSTB 

02115 

P0TS1 

02131 

RMTST A 

02143 

P0TS? 

02163 

SPTSTa 

02175 

SPTSTB 

02207 

O0TS3 

02230 

i.ftsta 

02242 

PCTS4 

e?254 

°P)TS5 

0 ^267 

P0TS6 

t;^^27 4 

P«TS7 

02301 

P0TS10 

02306 

P0TS1 1 

0231 3 

‘'PTSl? 

0 23 '1 

T s 1 3 

3 
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P0TSXA 0?332 
P0TS15 02337 
P0TS16 02344 
P0TS17 02351 
P0TS20 02356 
P0TS21 02363 
P0TS22 02370 
P0TS23 02375 
P0T.S24 02402 
P0TS25 02407 
P0TS26 02414 
P0TS27 02421 
P0TS30 02426 
P0TS31 02433 
P0TS32 02441 
P0TS33 02447 
P0TS34 02466 
P0TS35 02501 
P0TS36 02514 
PRGl 02527 
P1T0 02541 
PlTi 02552 
P1T2 02564 
P1T3 02577 
P1T4 02612 
P1T5 02625 
P1T6 02640 
PIT? 02653 
P1T10 02666 
PITH 02701 
P1T12 02715 
P1T13 02731 
P1T14 02745 
PlTl5 02761 
P1T16 02766 
FWPIN 02773 
FWPINA 03003 
PRG2 03011 
P2T0 03017 
P2F0 03036 
P2T1 03042 
P2T1A 03047 
P2T2 03061 
P2T2A 03070 
P2T2W 03106 
PRG3 03107 
P3T0 03122 
P3Ti 03127 
P3T2 03134 
P3T3 03141 
P3T4 03146 
P3T5 03153 
P3T6 03160 
P3T7 03165 
P3T10 0317? 



I'^TTP? 
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P3T11 

03177 

P3T12 

03204 

P3T13 

03211 

P3T14 

03216 

P3Ti5 

03223 

P3ti6 

03230 

P3T17 

03235 

P3T2« 

03242 

P3T21 

03247 

P3T22 

03254 

P3T23 

03261 

P3T24 

03266 

P3T25 

03273 

P3T26 

03277 

P3T27 

03303 

P3T3P 

03307 

P3T31 

03313 

P3T32 

03317 

PRG4 

03336 

PRG5 

03346 

PRG5A 

03362 

PRG5V 

03372 

PRG6 

03373 

rlocka 

03401 

RLOCKl 

03403 

RLOCKB 

03513 

BLOCK2 

03515 

RLOCKC 

07625 

nBLK 

04001 

setloc 

100322 

DEL A'^ 

100333 

MOVE 

100533 

CLSE 

700001 

CLOF 

700004 

CLON 

7 000 A 4 

RSF 

7.00101 

Rcr 

700102 

RSA 

700104 

RRR 

70011? 

RSP 

700144 

PSF 

700201 

PCF 

700202 

PSA 

700204 

PSP 

700244 

KSF 

700301 

krp 

7 00 3:2 

kra 

700322 

TSF 

700401 

TCF 

701^0 2 

TLS 

700406 

FEW 

707702 

LFM 

707704 



